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ABSTRACT 


Loss measurements were conducted using a five-hole conical 
pneumatic probe in a subsonic wind tunnel containing a modeled 
cascade of controlled diffusion (CD) stator blades Polloving 
reference measurements at high incidence one blade was modi- 
fied (slotted at the leading edge) in an attempt to (passive- 
ly) reduce the size of the leading edge separation bubble and 
thereby improve performance. Prior to the surveys, the acqui- 
sition and reduction software was modified to provide loss 
calculations using both mass-averaged and fully-mixed-out 
conditions for the upstream and downstream flows. Results 
showed that the mass~averaged method provided the more consis- 
tent results, and this was explained. The slotted leading 
edge blade was found to produce less loss than the reference 
blade, and it was concluded that the control concept should be 


explored in more detail. 
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I. INTRODUCTION 


The current drive for highly maneuverable, short take off 
and landing (STOL), and short take off, vertical landing 
(STOVL) aircraft is generating a demand for efficient aircraft 
engines which are also capable of operating stably at extreme 
angles of attack and with distorted inlet flow fields. Such 
operating conditions push the engines towards stall. Hence 
there is need for accurately predicting the available stall 
margin for a new engine, and for developing compressor designs 
which have wide stall margins at high efficiencies. 

Developing components and testing assembled engines for 
performance and stable operating margins, is enormously costly 
and a lengthy process. Computational fluid dynamics (CFD) 
potentially provides a means of modeling the engine flow 
fields and of evaluating the stall margin and efficiency 
during the design process. Thus the designer has the ability 
now to select and incorporate compressor blade shapes which 
allow the engine to achieve the desired characteristics. The 
CFD codes used for design purposes must first be validated by 
comparison with cascade wind tunnel data for flow structure 
and blade element performance. Laser doppler velocimeter 
(LDV) systems provide information on the flow structure by 
mapping the velocity field. Pressure probe measurements are 


required to determine the loss coefficient, which is the key 





measure of the blade performance. Accurate loss measurements 
using a pressure probe in the Naval Postgraduate School's 
(NPS) cascade wind tunnel facility, including exploratory 
tests of a blade leading edge modification, were the focus of 
the present study. 

The cascade wind tunnel was configured with the mid 
section of a controlled diffusion (CD) stator blade designed 
by Sanger (Ref. 1] at NASA Lewis Research Center. Previous 
studies with the present CD blading include the work of 
Koyuncu [Ref. 2], who conducted pressure probe tests at air 
inlet angles from 24.3 degrees to 47.2 degrees to establish 
on- and off-design blade losses. Subsequently, Dreon [Ref. 3] 
measured losses at various positions moving downstream through 
the wake and concentrated on verifying the accuracy of the 
loss measurements at the air-inlet angles of 40.3 and 43.4 
degrees. The detailed flow structure was mapped by Elazar 
{Ref. 4], who obtained LDV measurements of the flow through 
the passage formed by adjacent blades, of the boundary layer 
development on the blade surfaces and of the early wake 
development. Hot-wire measurements were obtained by Baydar 
(Ref. 5] to verify the LDV measurements of Elazar. Classick 
[Ref. 6] improved the data acquisition and reduction process 
for pressure probe measurements using new computer hardware, 
documented a user manual and made demonstration measurements. 
Classick's and Dreon's work provided the background for the 


present study. The cascade flow field was found to be 


acceptably periodic and showed good span-wise independence in 
each of the earlier studies. 

In the present work, the software and procedures developed 
by Classick were used to obtain accurate measurements to 
establish the blade element performance at a high air inlet 
angle near stall. The measurements were used to examine the 
possible standardization of cascade blade loss measurements in 
terms of "fully mixed-out flow" conditions, and as a reference 
against which to evaluate performance changes caused by 
leading edge modifications. Cascade losses as evaluated from 
the "mass-average" of stagnation pressure surveys can vary 
depending on the locations of the probe survey stations. 
Calculating the loss using the fully mixed-out conditions from 
both the upstream and downstream survey stations, in principle 
provides a loss measurement that is independent of survey 
station. With respect to modifying the leading edge, at off- 
design incidence angles, the leading-edge separation bubble on 
the suction side of the blade generates a significant loss. 
By introducing counter rotating streamwise vortices at the 
leading edge of the blade (by creating a series of diagonal 
slots to generate a pattern of obligue jets) early 
reattachment will decrease the bubble size and subsequent 
growth of the suction side boundary layer, thereby generating 
smaller losses. Measuring accurately the loss of the 
reference CD blade and a slotted CD blade will establish the 


blade element performance improvement. 








The present study involved further development of the 
measurement procedures followed by reference and modified 
blade measurements. First, the measured yaw angle was 
correctly referenced to the blade row geometry, completing a 
procedure initiated by Classick [Ref. 6]. Secondly, the fully 
mixed-out loss computation was incorporated into the data 
analysis software and the software was validated using an 
analytically-constructed test case. A Reynolds number 
subroutine was also added. Finally comprehensive pressure 
probe measurements at an air inlet angle of 48.5 degrees were 
obtained for the reference case and with a single slotted cD 
blade inserted within the cascade of reference blades. 
Conclusions of the study were that mass-averaged loss 
coefficients can be evaluated with less uncertainty than fully 
mixed-out loss coefficients because of the effects of slightly 
varying cascade inlet conditions, and that the slotted blade 
leading edge did create significant upper surface flow 
modification, leading to a measured blade element performance 
improvement. 

The apparatus for the experiment is discussed in Section 
II of this report. Section III discusses the test conditions, 
calibration, referencing, survey runs, survey positions, 
measurement uncertainties and outlines the measurements taken. 
Section IV presents the results for the flow field, blade 
performance, and effect of the modified leading edge on the 


flow structure. The conclusions and recommendations follow in 








Section Vv. Details of the work are contained in the 
appendices. Appendix A discusses the slotted blade 
development, from the concept to the final production 
procedures. The software, in the form of programs, 
subprograms, data printouts and directory are provided in 
Appendix B. The Reynolds number subroutine is shown in 
Appendix Cc. Appendix D presents the fully mixed-out flow 
theory and the validation test problem is given in Appendix E. 
Appendix F addresses the probe angle referencing procedure. 
It should be noted that Apperdix C of Classick [Ref. 6] serves 


as a users guide to the computer and software. 


II. EXPERIMENTAL APPARATUS 


A. CASCADE WIND TUNNEL 

Figure 1 shows the NPS cascade wind tunnel facility. The 
test section and instrumentation are shown in Figure 2. A 
detailed description of the facility, test section and CD 


blading is contained in Sanger and Shreeve [Ref. 7]. 


B. CONTROLLED DIFFUSION BLADING 

The design procedure for the reference CD blading is 
described in Reference 1. Table 1 provides the blade 
coordinates, cascade geometry and nominal conditions for the 
tests. Figure 3 shows the profile of a blade and shows the 
location of rressure taps on the instrumented blade (blade 10 
from the left in Figure 2), and the partially instrumented 
blade (blade 11). The slotted blade leading edge is shown in 
Figure 4. The slotted blade development from the reference CD 
blade is given in Appendix A. The reference blade and slotted 


blade surveys were made behind blade 7. 


Cc. INSTRUMENTATION 
The five-hole conical probe used and described by Dreon 
(Ref. 3] and calibrated by Classick [Ref. 6] was used for all 


pressure probe measurements. 
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Plenum thermocouple and pressure probes, Prandtl probe, 
wall static taps and instrumented blades were as described by 
Classick [Ref. 6]. 

Inlet and outlet flow angles were recorded using a yaw 
transducer mounted on the probe shaft. Probe sensor holes P2 
and P5 shown in Figure 5 were used for yaw angle balancing, 
with a water manometer. The (linear) yaw transducer was 
zeroed in the vertical position and the span was set for the 
range to be measured. 

A turn counter was mounted on the motor-driven traverse 
mechanism supporting the conical probe. The counter, which 
was recorded manually, provided the probe displacement in the 
blade-to-blade direction. A vernier scale on the probe mount, 


also recorded manually, gave the span-wise displacement. 


D. DATA ACQUISITION SYSTEM 
1. Hardware 
Figure 6 shows a schematic of the data acquisition 
hardware used by Classick (Ref. 6] and in the present work, 
without any changes. 
2. Software 
a. ACQUIRE 
Program ACQUIRE was used to control the data 
acquisition and store the collected data in memory. The 
program was unchanged from the work of Classick. Appendix B 


of Reference 6 contains the program flow chart and complete 
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listing. The listing is included in Table B13 of the present 
work. 
b. CALC 

Program CALC was used to reduce the data to 
engineering quantities and parameters to be used in the 
subsequent loss calculations. The fliow of the program 
remained the same as in Classick's work. However, the program 
was modified to include calculation of the Reynolds number, 
provide yaw angle reference to the cascade through-flow 
direction and to provide additional parameters to pass to the 
program segment computing fully mixed-out losses. The revised 
listing and description of changes are given in Appendix B. 

c. LOSS 

Program LOSS was used to calculate the mass 
averaged and fully mixed-out losses for the test blade from 
the reduced data. The program was derived from the one 
developed by Classick. The mass averaged portion was not 
changed. Subroutine calls were added to calculate the mixed- 
out conditions for the upstream and downstream measurements 
and to calculate the loss based on the mixed-out conditions. 
Additional programming was included to provide the new output. 
Appendix B contains a complete listing of the program and 


associated routines. 
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IIil. TEST PROCEDURES AND PROGRAM OF MEASUREMENTS 


A. TEST PROCEDURES 
1. Setting Test Conditions 

The inlet wall angle had been set previously at 48 
degrees by Murray [Ref. 8]. A complete report of the angle 
setting procedures is given in Appendix A, Section VI of 
Reference 8. The inlet guide vanes were adjusted to ensure 
constant inlet flow angle in both span-wise and blade-to-blade 
directions. The adjustable upper walls were adjusted to 
obtain uniform wall static pressures in the blade-to-blade 
directions. All tests in the present study were conducted at 
a wall angle setting of 48 degrees and an inlet dynamic 
pressure (Q) nominally of 12.1 inches water. Atmospheric 
pressure was monitored and updated every hour of testing if 
necessary. 

2. Calibration 

Both Scanivalves were calibrated to give a digital 
output in engineering units, prior to each test, using a 
controlled source of shop air and a water manometer. The yaw 
was referenced perpendicular to the cascade blade row entry 
plane as described in Appendix F. Once this reference had 
been established, the yaw transducer was scaled at two known 


limits prior to each test, using a digital inclinometer. 











3. Referencing 
Tunnel inlet conditions at the time of recording were 
used to reference the pressure and velocity values obtained by 
reduction of probe test data at each survey point. This was 
done to eliminate the effects that small changes in the tunnel 
supply conditions might have on the calculation of the mass 
averaged loss coefficient (Duval [Ref. 9]) and the mixed-out 
loss coefficient (Appendix D). 
4. Probe Surveys 
Pressure probe surveys involved recording a data scan 
with the probe positioned at intervals varying from .05 to .6 
inches. The surveys were conducted in span-wise directions 
across the tunnel and in blade-to-blade directions along the 
tunnel at the lower and upper traverse stations shown in 
Figure 2. 
5. Measurement Uncertainties 
The yaw angle was referenced and calibrated to +.1 
degree accuracy set by limitation of the digital inclinometer. 
The balancing uncertainty for the yaw angle was found to be 
+.05 degree (equal to the variance when rebalancing with the 
probe in a fixed position after rotating the probe to 
introduce an imbalance). DVM fluctuations were minimized by 
using the average of five samples in the acquisition process, 
this had no effect on the accuracy of measurements. 
Scanivalve resolution was set to .001 inches of water with an 


estimated uncertainty of 0.02 inches of water of approximately 
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20 inches of water. Probe position in the blade-to-blade 


direction was measured using a counter with a resolution of 
+.05 inches. Span-wise position was measured on a vernier 


with a resolution of +.1 inches. 


B. PROGRAM OF MEASUREMENTS 

Probe surveys were conducted in the span-wise and blade- 
to-blade directions to establish the cascade inlet condition 
and the outlet flow fields behind the reference and slotted 
blade. Table 2 contains a summary of the probe surveys 
conducted, giving the survey number, the location, direction, 
interval and number of the figure in which the reduced data 
are shown plotted. 

First, a set of probe surveys was conducted to establish 
the flow qual‘ty into the test section by spanning the entire 
26 inches of traverse in the blade-to-blade direction. 
Second, an upstream survey of the reference blade was 
conducted in the blade-to-blade and span-wise directions. 
Third, a downstream survey of the reference blade was 
conducted in the blade-to-blade direction and in the span-wise 
direction. Finally, a downstream survey of the slotted blade 
was conducted in the blade-to-blade direction and in the span- 
wise direction. This final blade-to-blade survey encompassed 
two blade passages to provide data for the slotted blade and 


an adjacent reference blade. 
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TABLE 2 


PROBE SURVEYS 





NOMINAL 
SURVEY # LOCATION DIRECTION INTERVAL FIGURE 
REFERENCE CASCADE: 
1 UPSTREAM Blade-to-Blade -6 in 7,8,9 
(Blades 4-13) 
2 UPSTREAM Span-wise -05-.1 in 11 
(Blade 7) 
3 UPSTREAM Blade-to-Blade -1 in 10 
(Blade 7) 
4 DOWNSTREAM Blade-to-Blade .05-.1 in 13a,14a, 
(Blade 7) 15a 
5 DOWNSTREAM Span-wise -05-.1 in 16a,17a 
(Blade 7-- 18a 
Suction) 
6 DOWNSTREAM Span-wise -O05-.1 in 19a,20a 
(Blade 7-- 21a 
Pressure) 
WITH SLOTTED BLADE INSTALLED: 
7 DOWNSTREAM Blade-to-Blade .05-.1 in 13b,14b 
(Blades 7&8) 15b 
8 DOWNSTREAM Span-wise 05-21 in 16b,17b 
(Blade7~-- 18b 
Suction) 
9 DOWNSTREAM Span-wise -O5-.1 in 19b,20b 
(Blade 7-- 21b 
Suction) 


Upstream and downstream surveys were made at the traverse 
locations shown in Figure 2. The downstream span-wise surveys 


- were located one inch from a vertical extension of the 
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trailing edge in both the suction and pressure directions. 
Measurement intervals were determined by the interval to be 
surveyed. The tunnel surveys required intervals of .6 inches. 
Upstream and downstream surveys were initially conducted at .1 
inch intervals with the interval decreased to .05 inch 
intervals when a measurable change in the flow conditions was 
apparent. Instrumented blade surface pressure measurements 
were recorded at the end of each of the blade-to-blade 


surveys. 


C. DATA REDUCTION AND PRESENTATION 

The data collected were first scaled to engineering units 
and stored in a "scaled" file (Table B7, Appendix B). The 
scaled data were then reduced using the equations given in 
Table 3. The reduced data were stored ina "calc" file (Table 
B8, Appendix B). The "calc" file listing contains values of 
Scanivalve gauge pressures, yaw transducer reading, plenum 
temperature and atmospheric pressure. The ensemble averages 
given at the end of the files represent the nominal test 
conditions for the survey. Pressures are given in inches of 
water. 

The "calc" file provided the inputs for loss measurement 
calculations. Figure B3, Appendix B is a program LOSS 
printout. Referring to Figure B3 the upper portion provides 
the name of the "calc" files used with the associated ensemble 


reference values of the reference velocity, plenum pressure 
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and atmospheric pressure. The intermediate values in the loss 
calculations using mass averaging follow, with the final 
results next. Mixed-out loss intermediate values are output 
next with the mixed out conditions of velocity, total pressure 
and static pressure preceding the calculated value of the 
miceéd-out loss. 

Appendix B of Reference 6 defines and describes the 
quantities Beta, Gamma and Phi which are listed in the "calc" 
files. Table 3 and the list of symbols define all other 


quantities in the "calc" files and loss printouts. 
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TABLE 3 


DATA REDUCTION FORMULAE 





PROGRAMMED 
PARAMETER EXPRESSION EXPRESSION 
X same 
Bias 
ae y 1/2 
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P 
yl 
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Y 
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. Pee es oe 
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e 1 
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IV. RESULTS AND DISCUSSION 


The results are presented first for the upstream flow 
field in Figures 7-11. Blade 10 and the adjacent blade 
surface pressures are shown in Figure 12. The probe surveys 
downstream of blade 7 are shown in Figures 13-21, with section 
(a) of each figure giving the reference case and section (b) 
giving results with the slotted blade installed. Losses are 
given in Figure 22 and the loss distribution for the reference 
and slotted blade wakes is shown in Figure 23. Finally, 


surface flow visualization sketches are given in Figure 24. 


A. FLOW FIELD 
1. Upstc:am Flow Field 

The inlet flow field, spanning eight to nine blade 
spaces, is shown in Figures 7-9. Deviations from a fully 
uniform velocity were due to persistence of inlet guide vane 
wakes and to slight non-uniformities in the vane passage 
geometries. The inlet conditions in the survey region of 
blade seven, where the present testing was based, was 
acceptably uniform in the blade-to-blade direction as shown in 
Figures 7 to 9 and in Figure 10, which shows the results of 


the detailed upstream survey. The inlet flow conditions in 
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Figure 7. Tunnel Inlet Survey: Beta vs. Probe 
Displacement, Blade-to-Blade 
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Figure 8. Tunnel Inlet Survey: V1/Vref vs. Probe 
Displacement, Blade-to-Blade 
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Figure 9. Tunnel Inlet Survey: Pref-Ptl/Qref vs. 
Probe Displacement, Blade-to-Blade 
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Figure 10a. Reference Blade Upstream Survey: Beta vs. 
Probe Displacement, Blade-to-Blade 
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Figure 10b. Reference Blade Upstream Survey: V1/Vref 
vs. Probe Displacement, Blade-to-Blade 
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Figure 10c. Reference Blade Upstream Survey: Pref-Ptl/ 
Qref vs. Probe Displacement, Blade-to-Blade 
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Reference Blade Upstream Survey: 
Probe Displacement, Span-wise 


Figure lila. Beta vs. 
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Figure 1lb. Reference Blade Upstream Survey: V1/Vref 
vs. Probe Displacement, Span-wise 
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Figure llc. Reference Blade Upstream Survey: 
Oref vs. Probe Displacament, Span-wise 
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Surface Pressure Distribution: Cp vs. X/C 
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Figure 13a. Reference Blade Downstream Survey: Beta vs. 
Probe Displacement, Blade-to-Blade 
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Figure 13b. Slotted Blade Downstream Survey: Beta vs. 
Probe Displacement, Blade-to-Blade 
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Figure 14a. Reference Blade Downstream Survey: Pref-Pt2/ 
Qref vs. Probe Displacement, Blade-to-Blade 
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Figure 14b. Slotted Blade Downstream Survey: Pref-Pt2/Qref 
vs. Probe Displacement, Blade-to-Blade 
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Figure 15a. Reference Blade Downstream Survey: V2/Vref vs. 
Probe Displacement, Blade-to-Blade 
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Figure 15b. Slotted Blade Downstream Survey: V2/Vref vs. 
Probe Displacement, Blade-to-Blade 


35 








Figure 16a. Reference Blade Downstream Survey: Beta vs. 
Probe Displacement, Span-wise, Suction Side 
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Figure 16b. Slotted Blade Downstream Survey: Beta vs. 
Probe Displacement, Span-wise, Suction Side 
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Reference Blade Downstream Survey: Pref-Pt2/Qref 
vs. Probe Displacement, Span-wise, Suction Side 
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Slotted Blade Downstream Survey: Pref-Pt2/Qref 
vs. Probe Displacement, Span-wise, Suction Side 
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Figure 18a. Reference Blade Downstream Survey: V2/Vref vs. 
Probe Displacement, Span-wise, Suction Side 
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Figure 18b. Slotted Blade Downstream Survey: V2/Vref vs. 
Probe Displacement, Span-wise, Suction Side 
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Figure 19a. Reference Blade Downstream Inlet Survey: Beta 
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Figure 19b. Slotted Blade Downstream Survey: Beta vs. 


Probe Displacement, Span-wise, Pressure Side 
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Figure 20a. Reference Blade Downstream Survey: Pref-Pt2/Qref 
vs. Probe Displacement, Span-wise, Pressure Side 
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Figure 20b. Slotted Blade Downstream Survey: Pref-Pt2/Qref 
vs. Probe Displacement, Span-wise, Pressure Side 
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Figure 2la. Reference Blade Downstream Survey: V2/Vref vs. 
Probe Displacement, Span-wise, Pressure Side 
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Figure 21b. Slotted Blade Downstream Survey: V2/Vref vs. 
Probe Displacement, Span-wise, Pressure Side 
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Figure 24a. Reference Blade Leading Edge Flow Visualization 
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Figure 24b. Slotted Blade Leading Edge Flow Visualization 
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the span-wise direction shown in Figure 11 were considered to 
be acceptably uniform in the mid-span region of interest. 
2. Two-Dimensionality and Periodicity 

Downstream span-wise surveys show a much diminished 
core of two-dimensional flow on the suction side of the blade 
(Figures 16a to 18a). This was the result of side-wall and 
corner flow boundary layer build-up through the test section. 
The pressure side had a greater core. However, the side-wall 
effects again were evident (Figures 19a to 21a). 

Figures 13a to 15a show good periodicity for the blade 
passages enclosing blades seven and eight. The first and last 
points are in good agreement and the spans isatch in depth, 
width and shape. Similar periodicity can also be seen in 
Figure 12 where the values of the coefficient of pressure for 
the partially instrumented blade are shown plotted with the 
coefficients for the fully instrumented blade ten. 

3. Downstream Flow Field for the Reference Cascade 

The reference blade downstream flow field is seen to 
be qualitatively similar to that found in Dreon's [Ref. 3], 
Elazar's [Ref. 4] and Classick's [{Ref. 6] work. The angle, 
pressure and velocity profiles across blades seven and eight 
were very similar (Figures i3a to 15a) to each other. The 
velocity and pressure in the core regions of the three 
adjacent passages do not completely agree, as iS apparent in 
Figures 14a and 15a. This is most likely attributable to 


inlet guide vane variations. The two outside passages (the 
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endpoints) do agree well however. The span-wise flow profile 
shows the boundary layer effects on the suction and pressure 
sides (Figures 16a to 21a) with the suction side indicating a 
vanishing core as discussed in Section A.2. The measurements 
of blade performance are considered to be valid but marginal 
due to the diminishing core. 
4. Downstream Flow Field with Slotted Blade 

The measurements behind the slotted blade show 
qualitatively similar profiles to those behind the reference 
blade. The slots had a measurable effect on the total flow as 
shown in Figures 14b and 15b. There was a significant effect 
on the wake of the slotted blade wake but, surprisingly, an 
equally significant effect on the wake of the adjacent blade. 
Figures 16b to 18b show that the core effectively vanished on 
the suction side of the slotted blade. The slots appeared to 
have a negative influence on the corner effects, which made 


the integrated results at midspan less certain. 


B. REFERENCE AND SLOTTED BLADE PERFORMANCE 

Table 4 lists the loss coefficient, axial velocity density 
ratio (AVDR) and static pressure rise for the mass-averaged 
and mixed-out flow cases for the reference and slotted blades. 
The values are also plotted on Figure 22 with results of 
previous measurements of the reference CD blading at various 
incidence angles. The calculated mass-averaged loss for the 


reference blade with accurately referenced yaw angle fits 
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TABLE 4 


REFERENCE AND SLOTTED BLADE SURVEY RESULTS 


REFERENCE BLADE 


Loss AVDR CP STATIC 
MASS 0.1014 1.016 0.3851 
MIXED 0.8760 1.015 
SLOTTED BLADE 
LOSS AVDR CP STATIC 
MASS 0.08969 1.031 0.3859 
MIXED 0.9627 1.031 


well with the earlier work. The calculated mass-averaged loss 
for the slotted blade shows a noticeable decrease compared to 
that of the reference blade. The loss reduction is clearly 
evident in the decreased wake size seen in Figure 23. Figure 
23 shows the cistribution of losses through the blade wakes by 
overlapping inlet and exit flow stagnation pressure 
distributions. 

The mixed-out flow losses provide a conflicting result. 
The calculated values were found to be unrealistic and 
exhibited completely opposite trends compared to mass-averaged 
loss. The mass-averaged calculations is such that the supply 
condition fluctuations are removed by referencing to plenum 
conditions. As presently carried out the mixed-out flow 
method does not appear to be sensitive to, even minor tunnel 
changes. Specifically the ensemble averages Of X,., and Pres 


during inlet and exit surveys are involved in the calculation 
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of the mixed-out conditions and the losses derived from them. 
Therefore small changes in the ensemble averages have a very 
large effect on the calculated losses. 

Hence, until a method of referencing is devised which 
leaves the mixed out loss independent of tunnel operating 
level, the mass-averaged loss will be accepted as a means for 


comparing performance. 


C. EFFECT OF SLOTTED LEADING EDGE ON FLOW STRUCTURE 

Visual observations of the flow over the reference and 
slotted blades using an atomized oil mist and a LDV laser beam 
illumination inaicated that there was a significant change in 
the flow between the two types of blades. The pressure side 
of the reference blade and slotted blade showed identical flow 
patterns as would be expected since the leading edge slots 
were positioned such as to have an effect on the separation 
bubble on the suction side. The reference blade suction side 
showed a pattern with some oil build up on the leading edge, 
a ary region of about .25 inches in the region of the 
separation bubble and the another oil buildup region where the 
flow reattached to the blade. The oil deposit was 
concentrated in the center of the blade due to the atomizer 
positioning and boundary layer of the tunnel. This is 
illustrated in Figure 24a. 

The slotted blade suction side showed a buildup of very 


small bubbles of oil near the exits of individual slots (where 











the oil flow had been channeled through the slots and 
deposited in the local separations created by the jets). The 
rest of the blade remained dry as shown in Figure 24b. It 
appeared that the freestream flow with oil droplets never 
reattached to the blade after separation. It was not possible 
to determine changes in separation bubble size with this type 


of visualization. 
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V. CONCLUSIONS AND RECOMMENDATIONS 


A. LOSS CALCULATIONS 


Investigations were conducted at a fixed inlet flow angle 


of 48.5 degrees of a reference-controlled diffusion compressor 


cascade and of the same cascade containing one blade with a 


slotted leading edge. The following conclusions were drawn: 


1. 


At this high angle of incidence, there was a vanishing 
core of two-dimensional flow at the downstream 
survey station. 


The blade element performance quantities derived from 
the probe measurements were consistent with previous 
results at lower angle settings. 


Mass-averaged loss calculations provided consistent and 
certain results, due to removal of effects of variations 
in supply conditions inherent in the method. 


Mixed-out loss calculations, as currently performed, 
are not useful since the results are sensitive to tunnel 
supply variations. 


The following recommendations for loss measurements are 


made: 


1. 


Reformulate the mixed-out flow loss calculations to 
remove the ensemble average values from the 
calculations. 


Make probe surveys closer to the blade trailing edge to 
reduce the effects of side-wall boundary layer buildup 
on the two-dimensional core of the flow. 


Automate the probe traverse process and incorporate the 
use of highly accurate linear variable displacement 
transducers. 


Use two probes for simultaneous measurements at upstream 


and downstream positions by incorporating item 3 and 
using the capabilities of the current software. 
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5. Conduct contour mapping of the downstream flow field to 
better establish flow conditions and quality. 


6. Employ the cascade's boundary layer suction provision to 
extend the two-dimensional core. 


7. Conduct probe surveys in the upstream and downstream 
positions over three blade passages to better establish 
blade wake effects and verify the accuracy of the 
losses. 

B. SLOTTED BLADE 
While the results for the slotted blade must be considered 


to be exploratory, the following conclusions were drawn: 


1. The presence of the slots reduced the losses from the 
blade. 


2. The flow over the suction surface of the blade was 
significantly changed by the presence of the slots. 


It is therefore recommended that more definitive 
measurements be made to define the effects on the separation 
bubble, and evaluate the practicality of this form of passive 


flow control. 
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APPENDIX A 


SLOTTED BLADE DEVELOPMENT 


The arrangement of skewed slots at the leading edge of the 
blade, shown in Figure 4, was intended to generate a series of 
small jets, pumped by the high pressure near the stagnation 
point to the very low pressure near the suction peak. This 
attempted to adapt the ideas outlined by Johnston (Ref. 11] to 
reduce the size of the leading edge separation bubble by 
introducing streamwise vortices created when the jets interact 
with the main flow. 

Introduction of the counter-rotating streamwise vortices 
at the leading edge of the blade, prior to the separation 
bubble, might cause the flow on the suction surface to remain 
attached longer but would be expected to create a smaller 
separation bubble by forcing earlier reattachment. This in 
turn would decrease the losses across the blade, particularly 
at high incidence where the bubble was largest. The 
stagnation point was required to be sufficiently forward of 
the vortex generator slots that flow through the slots in the 
suction surface direction was ensured at all angles of 
incidence. These restrictions governed the details of the 
placement of the vortex generators at the leading edge. 

Uniformity of the generators for the entire span was 


required. The CD blading studied here was a compressor stator 
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section which, in practice, would allow slotting without 
introducing unacceptable stress concentrations. Since 
slotting of the blades was easier to implement with control of 
tolerances and uniformity, slotting was chosen rather than 
attaching solid generators of any type. In particular the 
small size required was more easily obtained by slotting. 
Notching of blades in the production of smaller blades could 
be done using laser techniques. 

The stagnation point at the leading edge was determined 
using the blade surface pressure distributions obtained at 
48.52°. The vortex generators were placed so that they were 
normal to the camber line of the leading edge. This placed 
the stagnation point forward of the generators and allowed 
sufficient space for forward movement of the stagnation point 
at lower incidence angles. 

Slot depth and width were determined by the leading edge 
radius. The leading edge radius was 0.045 inches which 
allowed only a limited depth in order not to significantly 
alter the leading edge flow field. A maximum depth of 0.010 
inches was chosen for the slots. The leading edge radius also 
limited the slot length when combined with the chosen depth. 
In order for the generator to form a jet, its length had to be 
greater than its width. At the slot angle of 52° and a 
maximum depth of 0.010 inches a slot width of 0.010 provided 


a length-to-width ratio of approximately three. This was 
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sufficient to create a defined jet and yet allow for 
stagnation point movement at lower incidence angles. 

A slot angle of 45° was chosen initially. However, due to 
machinery limitations, an angle of 52° was used. Spacing 
between leading and trailing edges of the slots was 
arbitrarily chosen as 0.020 inches. This allowed 67 slot 
pairs to be placed on the leading edge of the ten inch span of 
the CD blading. Figure 4 illustrates the slotted leading edge 
at a 10X scale. 

The slots were made using a 0.010 inch-wide by 2.5 inch- 
diameter Jewelers Slotting Blade with 90 teeth. The shape of 
the blade limited the slots to rectangular or square cuts with 
the size depending only on depth of cut and chosen blade 
width. The slotting blade was mounted in a milling machine 
with digital precision position indicators. The milling head 
size and CD blade span limited the angle of the leading edge 
slots to 52.2°. The slots were made in one direction first, 
then the cascade blade was reversed and the second set of cuts 
was made. Slot widths of 0.010 inches to a tolerance of .0005 
inch was determined by the blade. Slot depth was checked 
every inch of span and a tolerance of 0.001 was maintained. 
Slot trailing edge spacing was also checked visually every 
inch and a tolerance of 0.005 inches was maintained. The 
angle tolerance was fixed in each direction. In view of the 
need to reverse the work under the machining head the 


consistency in angle could only be maintained to 0.4°. 
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Figure Al shows the CD leading edge slots in the midspan 
region. This view is from the suction (upper) surface of the 


blade. Figure A2 shows the same slots from the frontal 


aspect. 


oy) 











Figure Al. Slotted Blade Leading Edge, Suction Surface View 


56 











Figure A2. Slotted Blade Leading Edge, Frontal View 
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APPENDIX B 


SOFTWARE 


Bl. INTRODUCTION 

The software used for data acquisition and reduction 
consists of three programs--"ACQUIRE," "CALC" and "LOSS," as 
developed and discussed by Classick [Ref. 6]. The intent in 
the present work was to introduce necessary program changes 
without changing the original program flow. therefore 
Appendix C of Reference 6 should still be used for file 
system, program flow and program executions. "CALC" and 
"LOSS" were modified to provide Reynolds number calculations, 
probe angle referencing and fully-mixed-out loss calculation 
and these changes are discussed in the present section. 

The file system is given in Section B2. The modified 
program flow for "LOSS" is given in Section B3. The changes 
to "CALC" and "LOSS" are discussed in Section B4. Copies of 
the three programs and associated subroutines are included in 
Section B5. Output data tables of reduced data for upstream 
and downstream surveys of both the reference and slotted blade 
are illustrated in Section B6. Recommendations for software 
improvements are given in Section B7. Lastly a summary of 
steps required for running the three programs is provided in 


Section B8. 
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B2. FILE SYSTEM 

The current directory and file system is shown in Figure 
Bl. Four subdirectories exist under the Root directory 
"CLASSICK." The "DATA" subdirectory contains the raw data 
files created during the data acquisition. The "REDDATA" 
subdirectory contains the scaled data files from the 
acquisition and the reduced data files from the "CALC" 
program. The "PROGS" subdirectory contains the acquisition 
programs, data reduction programs and data plotting programs. 
The "ROUTINES" subdirectory contains the sub-routines utilized 
by three programs in the "PROGS" subdirectory. 

The data file names are descriptive in nature. The 
prefix (L, U, SUP, SUS, B) designates the survey type. The 
number followed by three characters provide the date (26AUG, 
4SEP) and the suffix (RAW, SCL, CALC) give the file type. If 
more than one run was conducted on the same day a number is 
added to the suffix (RAW1, SCLI1). To designate the blade 
surveyed, a blade number is embedded in the file type (L- 
O4MAY7RAW). To designate the modified blade the character "M" 


was embedded (L-O4MAYMRAW). 


B3. PROGRAM FLOW 

The program flow for "ACQUIRE" and "CALC" remain 
unchanged from Classick [{Ref. 6]. Figure B2 shows the flow 
for the program "LOSS." The figure shows the prompts the user 


will have on the screen and the effect that the selected 
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CLASSICK 


Root Directory 


Sub Directory 





DATA REDDATA PROGS ROUTINES 
S-07APR7RAW S-O7APR7SCL ACQUITE SUBACQUIRE 
L~O4MAY7RAW L~O4MAY7SCL CALC SUBCALC 
U-22MAY7RAW U~22MAY7SCL LOSS LOSSCALC 
U-O1JUNRAW U~-O1JUNSCL PRBCOEF SUBMIXLOSS 
U-3 1MAYMRAW U~3 1MAYMSCL CYBLADEPLOT 
SUS-25APR7RAW SUS-25APR7SCL VUREFSPAN 
SUP-24APR7RAW SUP-24APR7SCL BETAPOSIT 
SUS-23MAYMRAW SUS-23MAYMSCL PRESSPLOT 
SUP-2 4MAYMRAW SUP-24MAYMSCL 
L-29MARTRAW L-~29MARTSCL 
B-22MAYMRAW B-22MAYMSCL 

S~O7APR7CALC 

L~O4MAY7CALC 

U-22MAY7CALC 

U-01JUNCALC 

U-3 1MAYMCALC 

SUS-25APR7CALC 

SUP-24APR7CALC 

SUS-23MAYMCALC 

SUP-24MAYMCALC 

L-29MARTCALC 

B~-22MAYMCALL 

MIKEC3 

MIKECE 
Prefix Suffix 
L Lower Traverse RAW Raw Voltage Reachings 
U Upper Traverse SCL Engineering Scaled 
S Span Lower Traverse CALC Reduced 


SUP Span Upper Traverse Pressure 
SUS Span Upper Traverse Suction 


B Blade 


Figure Bl. 


Directory and File Listing 


60 





PROGRAM LOSS 


Enter name of the file containing the calculated data from the lower 
probe 


Enter the high scan number for the lower probe 


Enter the name of the file containing the calculated data from the 
upper probe 


Enter the high scan number for the upper probe file 





Enter the limit of integration for the lower probe survey 
Enter the lower scan limit 
Enter the upper scan limit 
Enter the limit of integration for the upper probe survey 
Enter lower scan limit 
Enter upper scan limit 
Loss printout printed to the printer 


END PROGRAM 


Figure B2. Program "LOSS" Flow 
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option has. The changes to previous work were those required 
to provide an angle input for referencing the probe pneumatic 
axis, scan lengths to decrease file size and execution time, 
and integration intervals to provide for fully-mixed-out 


losses. 


B4. PROGRAM MODIFICATIONS 
1. Program "CALC" 

The "CALC" program for data reduction was modified to 
include the calculation of the Reynolds number of the flow, 
correct for probe angle referencing and to provide required 
parameters for fully-mixed-out loss calculations in the 
program "LOSS." 

The Reynolds number calculation required the addition 
of subroutiies "Murefensemble" for finding the average 
coefficient of viscosity discussed in Appendix C, and "Datint" 
to find the integral "Iintg" for the value of Eqn. C8. These 
changes are shown in line 2507 and line 2529 of Table Bl 
respectively. Prompts were required to ask for’ the 
integration interval to be used based on scan number. The 
interval should span three inches or less to work with the 
"Datint" integration subroutine. 

The probe angle referencing correction required a 
prompt for the input of angle fy as discussed in Appendix F, 


and the subsequent equation for calculating the angle f in the 
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TABLE Bl 


CALC PROGRAM LISTING 


(PROGRAM CALLS 1 THES PRUOHHM fHKES Pr FELED UF UHIA LCULLELIEU tHUM 1H 


| AND REDUCES THE DATA 10 USEFUL ENGINEERING QUANTITIES THESE 

{| VALUES ARE PRINTED IN TABLE FORM. 

1MUCH OF THE CODING IN THIS PROGRAM HAS BEEN PREVIUUSLY COMMENTED ON 

fIN PROGRAM ACQUIRE. 

OPTION BASE | 

DIM Reddat(t, 106) 1AN ARRAY FOR THE SCALED DATA FROM ACQUIRE. 
VRECALL THAT THE SCALED DATA WAS STORED BY 
1A RANDOM OUTPUT STATEMENT. 


DIM P(6,6) I THE ARRAY FOR THE PHI COEFFICIENTS. 

DIM X(6,6) IWHE ARHAY FOR THE X VELOCITY COEFFICIENTS. 

OIM Pul6,5) I1F 2 PROBES USED THEN THE PHI ARRAY FOR 
(THE UPPER PROBE. 

DIM Xu(6,5) 

DIM Knaray( 100) IKN VALUES STORED IN AN ARRAY.Kn=K IN TABLE 


(I OF CLASSICK THESIS. 
DIM Prbdpost 102) 
OIM flaray( 102) HAN ARRAY OF VALUES USED IN THE CALCULATION 
DIM Baray( 100) (OF BLADE CP'S. 
DIM Caray! 180) 
MAT Redidat’ (@) 
MAT Knaray= (@) 
MAT Prbpos= (0) 
MAT Aaray® (0) 
MAT Barey* (0) 
MAT Caray (@) 


DEG {ALL ANGLES WILL BE IN DEGREES. 
Prnter=701 

Scren=l 

Firstbladeprt=4 (FIRST SCANIVALVE PORT ASSIGNED TO THE 


TINSTRUMENTED BLADE THAT IS OF INTEREST 
HIN THE CP CALCULATION, 
Lastbladeprt<48 tLAST “ " “ect. 
G=1.4 
Cp*.24 
LOADSUB ALL FROM “/CLASSICK/ROUTINES/SUBCALC™ 
MASS STORAGE IS “/CLASSICK/REDDATA™ 
PRINT “@aeeeeensoeereree reece eases se ees e BPRS Kesaescanaseatanssenesennsan” 
PRINT "" 
PRINT “ENTER THE NAME OF THE FILE CONTAINING THE PROBE DATA SCALED” 
PRINT "TO ENGINEERING UNITS” 
INPUT Sclfile$ 
ASSIGN OPath! 10 Sclfiles 
PRINT “soe eerere sts eC PCPS eR PDOSOT TEESE SHSERRECHHSOSHHRERESORHSHERHOREZER ORE” 
PRINT °" 
PRINT “ENTER THE PROBE COEFFICIENT FILE FOR X VELOCITY. THIS WILL BE ” 
PRINT °" 
PRINT “FOR THE LOWER PROBE IF TWO PROBES ARE BEING USED.” 
INPUT Readx$ 
ASSIGN @Path2 TO Readx$ 
ENTER @Path2;X(*) 
PRINT “ceoseecanst vce er ee vere stra PPOEeFESOHRHSHSEDERREPEHHREGEHSREAEEEED” 
PRINT "™ 
PRINT “ENTER THE NAME OF THE COEFFICIENT FILE FOR PHI. THIS WILL BE ” 
PRINT “*" 
PAINE “ENA THE 1 QWVER PROBE IF TWO PROBES ARE BEING USED.” 
INPUT Readps 
ASSIGN @Path3 TO Readps 
ENTER ®Path3;PCs) 
PRINT “Pewee races eeee rte ree ee Re eeS SOAP U FREE HTSESHSEHREHESESRED ESHA HRED” 
PRINT "" 
PRINT “IF DATA WERE COLLECTED WITH ONE PROBE, PRESS “" ONE PROBE""" 
PRINT "” 
PRINT “IF OATA WERE COLLECTED WITH TWO PRODES, FRESS ““TWO PROBES” 
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TABLE Bl (CONTINUED) 


335 PRINT “" 

Re, PRINT “eeesessres rece eeeeeSeCC eR EFEPSCEe REE SSEDECEHEFESTESHGSESE DOF EVES ES” 
45) OON KEY I LAGEL “ONE PROBE” GOTO Numberprbs! 

350 ON KEY 4 LABEL “TWO PROBES” GOTO Number prbs2 

35S Spinl: GOTO Spin 

360 Numberorbs!: Noofprbs=1 

365 GOTO Checknoofprbs 


370 Numberprbs2Z: Noofprbs-2 


375 
380 


Checknoofprbs: IF Noofprbs<2 THEN 


MASS STORAGE 35 "“/CLASSICK/REDONTN” 

PRINT “severe ses ese cee ae eee eeeetee ESP eeseFHeTEReReFTRESORF HSS OREFEDEHERAEE” 
PRINT “" 

PRINT "ENTER THE FILE NAME FOR THE UPPER PROGE COEFFICIENTS FOR Xvel.” 
INPUT Reodxus 

ASSIGN @PathZu TO Readxus 

ENTER @PathZuyXule) 

PRINT “seer ee eve eser eee Stese Odes TORSO SFOESDERSLTEEHSHREDSSREVEFLEREH EET ES” 
PRINT “" 

PRINT “ENTER THE FILE NAME FOR THE UPPER PROBE COEFFICIENTS FOR PHI.” 
INPUT Reodpugs 

ASSIGN @Path3u TO Readpus 

ENTER @Path3urPul¢) 

PRIN “seeeeaesee nese ees ee USSR EOsPHEDEDEEESEESCER SOHO ETE ERR EeBeoE ESR 
PRINT "" 

PRINT “ENTER THE FILENAME FOR THE ONTA TO BE CALCULATED FROM LOWER PROBE “ 
INPUT Calclfiles 

CREATE BOAT Calci files, 100 

ASSIGN @Path4 TO Calcifiles 

PRINT “seeees esas ese oveeeeseeetseseeereeeeversceeeeevenGvesseseereneusEe 
PRINT “" 

PRINT “ENTER THE FILENAME FOR THE DATA TO BE CALCULATED FROM UPPER PROBE” 
INPUT Cut cuftle’ 

CREATE BOAT Calcuf sles, 10d 

ASSIGN @PathS TO Calcufiles 


POSS RHSHEHPSEHHEHAHFSTISCHHOHOHOESE PHP ERE SHOR HECHAHPEHSRH EHEC HSER BORE ES ED 


fe NOTE: THE SCANIVALVE SENSES THE PRESSURE DIFFERENTIAL FROM . 
te AIMOS. THE SCANIVALVE IS CALIBRATED SO ATNGS PRESS(Pad © 
\s READS ZERO. THE PRESS SENSED AT A PORT IS THE PORT . 
te PRESS MINUS Pa i.e.,GANGE PRESS. TO ELIMINATE ERRORS QUE » 
ye TO DVM ORIFT, THE PRESS SENSEO BY PORT 1 OF THE . 
te SCANIVALVE (Ptare-Pa-Pa) 15 SUBTRACTED FROM EACH . 
fe SCANIVALVE PORT READING. 

. 


feeveesosecanscecensezes TUDO PROBES Peceveeee reese ssereeeeeseasserneteras 


leseeeneeeeSCANIVALVYE PORT AND SCANNER CHANNEL ASSIGNMENT? ee eereeoenecer 


Je . 
le . 
fs VARIABLE VARIABLE FORT/ CHANNEL DATA ARRAY ° 
te REPRESENTS ° 
fe . 
fe Ptare Pa-Pa Pont 1 Reddat(s,1) . 
te? Peal Pcal-Ptare PORT 2 Reddat( 1,2) ° 
f' Pp Pplenunm-Ptare Porr 3 Reddat( 1,3) * 
fe Fs Puallstatic-Ptare PORT 4 Reddat(t,4) . 
fe PI Pi-Ptare PORT S Reddat( 1,5) ° 
le F2 P7Z-Ptare PORT 6 Reddat( 1.6) . 
fe P3 P3-Ptare Port 7 Reddat( 1,7) ® 
te P23 (P24P3)/2 ° 
te FA P4-Ptare PonT 8 Reddat(1,8) ° 
te ops PS-Ptare PORT 9 Reddat(1,9) ° 
fe Ptp Ptotalprndt!-Ptare PORT 10 Reddat( 1,10) . 
te) Psp Pstatprndt]-Ptare PORT #1 Reddat(i,i1) . 
te BLANK PORT 32 Reddat( 1,12) . 
fe Phy Plu-Ptare Port 13 Reddat( 1,13) . 
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vee 


652 
665 
570 
675 
680 
685 
690 
695 
72 
795 
712 
715 
720 
725 
730 
735 
790 
TAS 
750 
755 
760 
765 
770 
775 
780 
785 
790 
795 
Beco 
aes 
810 
BIS 
; 870 
825 
830 
835 
BAe 
B45 
850 
055 
BEO 
865 
870 
875 
Boe 
BBS 
850 
835 
302 
3¢S 
310 
915 
920 
925 
930 
935 
9410 
945 
550 
955 
960 
965 
970 
a75 





TABLE Bl (CONTINUED) 
? pate . eur ee tower 7 enutsere tg ioe 7 
fe P3u P3u-Ftare PORT 1S Reddat( 1,15) e 
te P23u (P2utP3u)/2 . 
fs P4u P4u-Ptare PORT t6 Reddat( 1,16) « 
be PSU PSu-Ptare PORT 17 Reddat(},17) . 
fe Bt ARK PorRT 18 Reddat( 1,18) * 
te BLANK PORT 18 Reddat( 1,19) * 
ts Posit L PRB POSIT INPUT Reddat(t,2@) . 
te Positu U PRO POSIT INPUT Reddntt1,21) * 
te Yau LOWER PRB YoU 24 Reddat(},22) * 
ts) Yauu UPPER PRB YAW zt Reddat{!,23) . 
1s Temp TOTAL TEMPIPLENUM) CHAN 10 Reddat( 1,24) . 
te Pa ATMOSPHERIC PRESS INPUT Reddat( 1,25) ® 
Ye ® 
fe * 


POPP TOPOS SEFOSHSERFSSRPOH EFT HSE EFUSC HERPES ESREHERESSEHESEREES ERTS EES ODE 
feseserecesesereseveeDATA REDUCTIONS se eves ecesnesteteceseaseeeesesessece 
DIM Calcl( 100,25) 
MAT Calci~ (@) 
Pinitiall=® VINITIALIZES THE CONDITIONS TO CALCULNIE 
‘ENSEMBLE VALUES IN SUBROUTINE ENSEMBLE 
Tinitial-@ 
Prinittal!-@ 
FOR Nr} TO 10 
ENTER OPath! ,NiReddat( «) 'THE ARRAY 1S ENTERED WITH A RANDOM 
VSTATEMENT. 
ON END ©Patht GOTO Tuoprintcalcl 
Ptare-Reddat( 1,1) (REASSIGNMENT OF ARRAY ELEMENTS TO 
HIDENTIFINBLE QUANTITIES TO BE USED IN 
YIN SUBROUTINE CALCULATIONS. 
Peal -Peddat 1,2) 
Pp-Revdat¢t,3) 
Ps-Reddat( 1,4) 
Pl-Reddat(?,5) 
P2-Reddat( 1,6) 
P3=Reddnt(!,7) 
PZI7CP2Z4P43)/2 
P4-Reddat(t,@) 
PS-Reddnt(! 9) 
Ptp-Reddntt},1) 
Psp-Reddat(t, tt) 
IBLANK=<Reddat( 1,12) 
Posit*Reddat(!,2@) 
Yau~Reddat( 1,22) {YAW ANGLE CORRECTION COULD BE MNDE 
{HERE IF NOT ALREADY DONE IN ACQUIRE. 
Tenp~Reddat( 1,74) 

Pa-Reddat(),25) 

HCALCULATE BETA AND GANMA COEFFICIENTS 

CALL Bgcalc(Pa,Pt,PZ23,P4,PS,Beta,Gonma) 

ICALCULATE THE ENSEMBLE REFERENCE VALUES OF PLENUM PRESS, PLENUM TEMP AND PA 
CALL Ensemble(Pp,Pinttial ,Pa,Painitial ,Tenp, Tinitial ,Ppavg,Paavg, Tempavg,N) 
ICALCULATE Xvel AND Phi 

CALL Xphicalc( Beta, Ganmea, Xvel ,X(*) Phi, P(e) 

(CALCULATE Xref 

CALL MrefcaictPa.Pp.6,xref) 

"CALCULATE QREF AND VREF 

CALL Qvrefcalc( Xref ,Co,Temp,G.Pp,Pa,Qrof Vref) 

HCALCULATE VELOCITY AND MACH # AND Q 

CALL Vencalc( Xvel ,Cp, lenp.G,Vel ,Mach,P!,Pa,Q) 

1 CALCULATE THE INTEGRANO FOR THE AVOR EXPRESSION 

CALE KncaictPa,Pt.Pp,Xvel xref .G, Yau,Kn) 

ICALCULATE THE COEFFICIENT OF PRESSURE TERM 10 BE MASS AVERAGED. 

HTHESE TERMS ARE USED IN THE CALCULATION OF THE LOSS COEFFICIENT. 

CALL Coefpresa(Fi .Pp,Fa,Xvel ,6,Cps Cpt? 


ITAL TIN ATE THE ONANTTITTES 1A ME MASS AVENAGEN Min Trprvy rurce vante$c 
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380 
865 
39390 
385 
1000 
1@@S 
1A1@ 
1OIS 
1020 
1028 
1030 
1@35 
1040 
1a4S 
1050 
1858 
1060 
1@6S 
107 
1075 
1002 
1@85 
1eoe@ 
1995 
110@ 
1105 
He 
wis 
112@ 
425 
1130 
W135 
1140 
1145 
1150 
15S 
1160 
1165 
1170 
1175 
1182 
11865 
1190 
195 
V2@0 
12% 
1210 
W215 
1270 
1275 
1230 
1235 
1240 
12745 
1250 
1255 
1260 
1265 
1270 
1275 
1280 
1285 
129 
179% 





TABLE Bl (CONTINUED) 


{BY Kn TO GET THE INTEGRAND REQUIRED TO CALCULATE THE MASS AVERNGED CP'S 
CALL Cpintegrand(Pp,P!,Pa,6,Xve} A,B, Kn) 

| CALCULATE Pp-PI/Qref FOR PLOTS 

CALL Prefaqref(Pp,P? ,Qref Pq) 

| CALCULATE STATIC PRESSURE UPSTREAM 7 
CALL Staticpress(P!I Pa, Xvel GPs) 

(DEFINE AN ARRAY TO STORE CALCULATED VALUES 
Calcl(N,!)-Posit 

Calcl(N,2)*Beta 

Calcl(N,3)°Gamma 

Calcl(N.4)<Phi 

Calcl(N,S)-Xvel 

Calcl(N.6)exXref 

Calcl(N,7)<Vel 

Calcl(N,@)=Mach 

Calcl(N,9)*Yau 

Calcl(N,10)=-Kn 

Calcl(N,VV)=Cpt 

Calcl(n,12)<Cps 

Calcl(N,13)-Qref 

Calcl(N,14)-Vref 

Calclt(N,15)-Q 

Calct(N,16)-A 

Calcl(n,17)°8 

Calcl(N,t8)-Pq 


Calcl(N,19)-Pa Pa & Ps ARE USED FOR STATIC PRESS 
{RISE CALCULAFION IN PROGRAM LOSS. 

Calcl(N,20)-Ps 1THESE VALUES ARE NOT PRINTED. 

Knaray(N)-Calcl(N,1@) !UANT TO STORE MORE THAN JUST ONE 
'Kn VALUE FOR MASS AVERAGING 
'CALCULATIONS. 

Prbpest')>-Calcltn,)) fee ies 

flaray(N)-Calci(N, 16) poe 

Barny(N)=Calcl(N,17) Fi as 5 

Scan=N 

NEXT N 


Twoprintcalct!: OfF END ®Patht 

ICALCULATE ENSENBLE AVERNGE OF XREF 

CALL Xrefensenbl el Paavg,Ppavg,G, Xrefavg) 

'CALCULATE ENSEMBLE AVERAGE OF VREF 

CALL Vrefensemble( Xrefavg,Cn, lempavg,Vrefavg) 

ICALCULATE ENSEMBLE AVERAGE OF QREF 

CALL Qrefensembl e(Pasvg,Ppavg,G, Xrefavg,Orefavg) 

PRINT “ees ea es eeceaseree see eees FUE FTPHH OR EEHEESHEU CEE P ETHER RIE BOEE” 
PRINT "" 

PRINT “ALIGN PAFER IN PRINTER. WHEN READY FOR A HARDCOPY OF THE “ 

PRINT “CALCULATED DATA, PRESS ““REDUCED OATA™”.” 

PRINT "" 

PRINT “Sevese ees acs s esse POPES FEET EP THT O SHU OTTESUE SS EGE SEELOLS ESSER ES" 
ON KEY J LABEL “REDUCED DATA” GOIO Prntdataz 

Spin2: GOO Sptn2z 
Prntdataz: PRINTER IS Prnter 

PRINT “euvescoveconenresnesesseesessenae” 

PRINT “FILE “,Calcifiles 

PRINT “eoneeesesevccszeseveneseesepesese” 

PRIN, “Seveee ess ens eres OFSTTOS STE TORSO H EHP LEFEESEO SESH SEOFHEF LORS ESO HE 





PRINT "" 
PRINT "SCAN L PRB BETA GAMMA PHI Xvel 
PRINT “ POSIT" 


FOR N=! TO Scan 

PRINT USING °40,3xX,40.20, 3X ,MO. 3DE , 3X, MD. 3DE, 3X, MO. JOE , 2%, MD. 3DE ,2X , MD. 3DE 
NEXT N 

PRINT "" 


PRINT “Se eeer eer es scree SOFC SFA De eH FEHR EM FH TEFSHSTO SESH OEHES EOS HORE DER REE 
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1300 
1305 
1310 
11S 
1320 
1325 
133@ 
1335 
134 
1345 
1350 
1385 
1360 
1365 
1370 
7S 
138 
1385 
139@ 
1395 
VASD 
14¢5 
14t@ 
415 
1470 
$A25 
1430 
1435 
1440 
V4AS 
1459 
1455 
1460 
1465 
VA7% 
1475 
148 
1485 
1490 
Fags 
15¢@o 
{Ses 
1510 
LEB Bs) 
1520 
1575 
1530 
$535 
1540 
1S4S 
1550 
1555 
1560 
1S6S 
1570 
{S75 
1580 
SRS 
1590 
1595 
1620 
1625 
1618 
1BIS 


PRINI 
PRINT 


TABLE B1 (CONTINUED) 


“SCAN VEL VREF Q QREF HACH 


PRIN ~ 


FOR Ne 


PRINT 


1 10 Scan 
USING "4D, 3X,MD. 30E,3X,MD. 30E , 3X, MU. 3DE . 3X, MD. 3DE ,2X MU. 3DE,2X, MD. 3D 


NEXT N 


PRINT 
PRINT 
PRINT 
PRINT 


sea ROPOP SHES TSRESCSSSEHSTSSHTSSISCTFSEESCESHESESHCEHEOF ER SES Ee eessOBAS 
we 


PRINT °” 


PRINT 


“STAN Pref-Ptl/Qref™ 


FOR N-! 10 Scan 


PRINT USING “40,3X,MD. 3DE"sN,Calc(N, 18) 

NEXT N 

PRINT "" 

PRINT “See ete sete eee eae Bete FOES EF SHHESEOCCHSHHESEREHCEHESESHEASHESHEEEHESRHED 
PRINT “ 

PRINT “ENSEMBLE AVERAGES” 

PRINT "" 

FRINT "PRAVG PANVG TEMP AVG XREF AVG VREF AVG 
PRINT USING “MD. 3DE ,SX,M3D.Z20E 5X, 3D. 20,5 , M0). 3DE 5X, ND. 3DE , 3X ND. IDE“ iF pa 
OQUIPUT MPatharCalch(e) NOUIPUT STATEMENT IS SERIAL. 

DIM Calcul 10,25) ISEPARATE CALC ARRAY FOR REDUCED 


1DATA FROM UPPER SURVEY STATION. 


MAT Calcus (@) 


FOR N- 


1 10 190 


ENTER OPatht NeReddatie) TENTER STATEMENT 15 RANDOM. 
ON END @Path! GOIO Twoprintcalc? 

PtaresReddat(t,!) 

Pp-Reddnt¢t,3) 


Ps-he 


dott 1,4) 


PtpeReddnt( t 10) 

Psp-Reddat(1,tt) 

PYurReddat(), 13) 

P2ucReddat(), 14) 

P3urvReddat( 1, 1S) 

PZu3u7et(PZutP3u)/Z 

PAurReddoat(t, 16) 

PSu-Reridat(l,'7) 

TBLANK =REDDATC 1,18) 

1 BLANK©REDDAT(C 1,19) 

PositucReddat(!,21) 

Yawu=Reddat( 1,223) 

Tenmp-Reridat(!,24) 

Pa-Reddat(t,25) 

(CALCULATE BETA AND GAMMA COEFFICIENTS 

CALL Bgceale(Pa,Plu,P2u3ju,P4u,PSu,Betau,Gammau) 
{CALCULATE Xvelu AND Phiu 

CALL Xphicalc( Betau,Gammau, Xvelu, Xu(*) Phiu,Pule)) 
ICALCULNITE Xrefu 


CALL 


Xrefcalc(Pa,Pp,G,xXrefu) 


(CALCULATE QRFEF AND VREF 

CALL Qvrefcalct heat Co, tenp.G Po Pa Qref Vref) 

ICALCULATE VELOCITYu AND MACHU & AND Qu 

CALL Vaqealct( Xvelu,€p, temp,G,Velu, Machu Plu ,Pa, Qu? 

1 CALCULATE THE INTEGRAND FOR THE AVOR EXPRESSION 

CALL Knealc(Pa,Plu,fp,Xvelu, Xrefu,G, Youu,Knu) 

1 CALCULATE THE COEFFICIENS OF PRESSURE FOR THE UPPER PROBE. 

| THIS TERM WILL BE MASS AVERAGED ANN USED IN THE CALCULATION OF THE 
| LOSS COEFFICIENT. THE Cosu TERM IS NOT USED IN THE LOSS COEFFICIENT 
' CALCULATION. 

CALL Coefpress(Piu Pp, Pa xXvelu,G Cosu,Cpotu) 

+ CALCULATE Po-Pt/Oref FOR PLOTS 
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1620 
1625 
1630 
1635 
1640 
1B4S 
1650 
1655S 
1660 
{665 
1670 
1675 
1680 
168S 
1690 
1695S 
1780 
1705 
1710 
7s 
1720 
1725 
1730 
1735 
1740 
74S 
1750 
1755S 
1760 
1765 
1770 
$775 
1782 
178S 
1798 
1795 
180) 
18@5 
1810 
ye1s 
1820 
1825 
1830 
1835 
1840 
1845 
1859 
1855 
1860 
1865 
1870 
1875 
1880 
188s 
1890 
1895 
1900 
1905 
131 
1915 
1920 
1925 
1930 
1935 


TABLE Bl (CONTINUED) 


CALL Prefqref(Pp,P1 Oref Pou) 

| CALCULATE THE DOWNSTREAM STATIC PRESSURE 

CALL Staticpress(Plu,Pa,Xvelu,G,Psu> 

Calcu(N,1)-Posttu 

Calcu(N,2)=Betau 

Calcu(N,3)*Gannau 

Calcut(N,4)-Phiu 

Calcu(N,S)<Xvelu 

Calcut(N,6)°xXrefu 

Calcut(N, 7)=Velu 

Calcu(N,8)°Machu 

CalcutN ,9)-Yauu 

Calcu(N, 10)=Knu 

Calcul N,tt)-Cotu 

Calcu(N,t2)°Cnhsu 

Calcu(N,13)=Qu 

Calcu(N,14)<Pqu 

Calcu(N,19)"Pa tCalcu(N,1S) JO Calcu(N,18) WILL HAVE 

Calcu(N,20)-Psu 'ZEROS. ARRAY ELEMENT ASSIGNMENT 15 
ICONSISTENT WITH LOSS PROGRAM AND 
1ONE PRORE cURVEY, 

Scant™N 

NEXT N 

Twoprintcalc?2: OfF END @Patht 

PRINE “Pee eves eecer seers eee E Reser eFEFOFSES PTS SHAS SEHHHCTHRESHERESES ERS EEE 

PRINT “" 

PRINT “eececeseseseveceeeeserecessystveerse” 

PRINT “FILE " Calcufiles 

PRINT “"eveevressoseasesuonesescasvensosseesses” 

FRINT “ees eeassses reese sees eres reese POSSE RFSESHEFOFETHOUE SCOR USE RSE ESE ED OSES 


PRINT "™ 
PRINE S°AN U PRB BE TAU GAMMAU PHIU Xveiu " 
PRINT ” POSIT" 


FOR Net TO Scan 

PRINT USING “40,2X,4D.20, 3X, MO. 3DE , 3X, ND. 30E , 3X, MD. SDE, 3X MD. SDE" IN, Calcul 
NEXT N 

PRIN, “se seers eee eee recreated esoseceFFOSUFT SDE REESORERENSESCOSERELBESCEESERE 
PRINT "" 

PRINT “SCAN VELU Qu Pref -Ptu/Qref HATHU yAvuU" 
PRINT “ DEG" 

FOR Nol 10 Scan 

PRINT USING "40, 3X,MD. 30E 3X, MD. 30E, 3X, M0. 3DE , 3X, MD. 3DE, 3X, M0. IDE" yN,Calcu 
NEXT N 

FRINT “ev earsreses ses a esses eee see es eePFERPEF ESSE DH TFLERESLOCESLRRPESEFOHEHDD 
PRINTER IS Scren 

OUTPUT @PathS: Calcul *) 

ELSE 

MASS STORAGE IS “/CLASSICK/REDDATA” 

PRINT “se eereceas cerca se oOResese res RHF PPCHRERP FTES SCE HHTESES RENEE EEO REED 
PRINT "" 

PRINE "ENTER THE FILENAME FOR THE DATA TO SE CALCULATED FROM THE PROBE ~ 
INPUT Caolcfilet 

CREATE BOAT Calcfittet, 192 

ASSIGN Oath4 10 Caicfhiles 


Pee me rere ees eee SCET OTHER HL ERSTE EEEASHECHEHESESTESEEESEED EH HCEHE SHED ES De 
Peveseesoeesseceseseece ONF PRIDE eeveceretessenses essen esenesereeseeey 


PeceveoeeesSCANIVALVE PORT AND SCANNER CHANNEL ASSIGNMENT # eseessceeceres 


Je e 
fe . 
fe VARINBLE VARIABLE PORT/CHANNEL DATA ARRAY ° 
fe REPRESENTS . 
te . 
te Ptare Pa-Pa PORT 1 Reddat( t,t) . 
te Fecal Pcal -Ptare PORT 2 Reddat(!}.2) . 
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1940 
1945 
4959 
1955 
1960 
1965S 
1970 
4975 
1980 
1985 
1990 
1995 
290 
2005 
2010 
Z@1S 
2020 
2025 
2030 
2035 
7940 
7204S 
70590 
27055 
ZO06@ 
2065 
20720 
2O7) 
2075 
Z2en@ 
7@85 
2090 
2095 
2100 
2105 
2110 
2115S 
2120 
2175 
2430 
Z135 
2140 
214g 
215@ 
2155 
Z16@ 
7165 
217 
2175 
218 
2185 
2190 
291 
2195 
77eD 
2205 
272710 
2215 
2270 
2775 
2230 
7235 


2240 
TIAC 


TABLE Bl (CONTINUED) 


1* Fp Ppolenum-Ptare FORT 3 Reddat(t,3) * 
fe Ps Puallstatic-Ptare POR! 4 Reddat( 1,4) ° 
je PS Pi-Ftare ForRT S Reddot( 1.5) . 
fe PZ P2-Ptare POR! 6 Reddot(),6) * 
te P3 P3-Ptare PORT 7 Reddat( 1,7) s 
te P23 (P24P3)/2 . 
fe P4 P4-Ptare PORT 8 Reddat( 1,8) * 
te PS PS-Ptare FORT § Reddatt),3) ) 
fe Ptp Ftotalprndtl-Ptare PORT 10 Reddat( 1,10) ° 
te Psp Petotprndtl-Ptare FORE 12 Reddat¢l, it) . 
te BLANK PORT 12 Reddat¢l,t2) * 
te BLANK PORT 13 Reddst( 1,13) . 
fe BLANK FORT 14 Reddat( 1,14) . 
fe Posit PRB POSIT INPUT Reddoat( 1,15) ° 
fe Yaw PRB YAW CHAN 24 Reddat( 1,16) . 
te Temp TOTAL TEMP( PLENUM) CHINN 18 Reddat(t,17) . 
Is Pa ATMOSPHERIC PRESS INPUT Reddat(!,16) ’ 
\e * 


|e 

PoePmoneesaesC TES ERFSHHETHAPEFEP HEEFT RSFETELEHH HOHE HRA KRESSHEHH STE ROKESH OD 

Jpoeveseecernerease eat REDUCTION® e@ ve ee bea ee reese eT RESP ERE HS HF ERS ERS 

DIM Calet 140,75) 

MNT Calcm () 

Pinttial-® VINTIALIZES CONDITIONS FOR ENSEMBLE 
ICALCULATIONS IN SUBROUTINE ENSEMBLE. 

Tintttal-@ 

Patnitial-® 

INPUT “INPUT VERNIER READING VHEN PROBE BAR IS HORIZONTAL” ,Betah 

FOR N-1 10 100 


ENTER BPatht NeReddat(*) TARRAY ENTEREQ RANDOMLY 
ON END ¢7 tht GOTO Printcalct 
Ptare-Reddat( 1,1) 'REASSIGNNENT OF ARRAY ELEMENTS TO 


1710 IDENTIFIABLE QUANTITIES USED IN 
SSUBROUTENE CALCULATIONS. 

Pcal ~Reddat( 1,2) 

PprReddat¢t 3) 

Ps-Reddat( 1,4) 

PirReddntt},5) 

P2-Reddatt(! 6) 

P3*Reddatt) 7) 

PZ3-(P24P3)/7Z 

P4-Redriat( 1.8) 

PS-Reddat(i,9) 

Ptp-Reddat( 1,10) 

Psap-Reddat(l,1t) 

1BLANK «Redriat( 1,12) 

IBLANKeReddat( 1,13) 

IBLANK «Redriat( 1,14) 

PositeReddat( 1,15) 

Betaf eReddat(),16) 

TemprReddat(l,17) 

PacReddat( 1,18) 

Yaur4@.454(Betal-Beatat) 

ICALCULNIE BETA AND GAMMA COEFFICIENTS 

CALL BncalrciPa Fi F723 74 PS Beta Ganna) 

ICALCULATE THE ENSEMBLE REFERENCE VALUES OF PRPLENUM,PLENUM TEMP AND PA. 
CALL Ensemble(Pp, ,Pinitial Pa ,Painitial temp, linitieal ,Ppava.Paava, lempavg,N) 
(CALCULATE Mvel AND Frit 

CALL Xphicalc( Beta,Gamma,Xvel X00) Phi Peed) 

SCALCULATE Xref 

CALL Xrefealc (Fa Pp.G, Xref) 

ICALCULATE Tempstat 


CALL Tempstatcalc(Xvel,fenp, tempstat) 
Irar rin are MMee aatl tore 
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TABLE Bl (CONTINUED) 


2250 CALL Qvrefcale( Xref Ch, tenp,G,Pp,Pa,Oref Vref) 

2255S 'tCALCULATE VELOCITY AND MACH & AND Q 

2760 CALL Vmacalc( Xvel ,Cp, femp,G,Vel ,Mach,P1,Pa,Q) 

2265 | CALCULATE THE INTEGRAND FOR THE AVDOR EXPRESSION 

7270 «CALL Kncalc(Pa, PI Fp,Xvel Xref ,G, Yau Kn) 

27275 =| CALCULATE THE COFFFICIENT OF PRESSURE TERMS TO BE MASS AVERAGED. - 
2280 | THESE TERNS ARE USED IN THE CALCULATION OF THE LOSS COEFFICIENI. 
27285 CALL Coefpress(Pt .Pp,Pa,Xvel ,G,Cos,Cpt) 
27290 =FCALCULATE THE QUANTITIES 10 BF MASS AVERAGED. MULTIPLY THESE VALUES 
2295 BY Kn TO GET THE INTEGRAND REQUIRFEO TO CALCULATE THE MASS AVERAGED CP'S 
2300 CALL Crintegrand(Pp,P!,Pa,G,Xvel ,A,B,Kn) 
2305 {ICALCLULATE Pp-P1/Qref FOR PLOTS 

231@ CALL Prefqref(Pp,P1 Qref .Fq) 

2315S ¢§ CALCULATE STATIC PRESSURE 

7320 CALL Staticpress(Pl ,Pa,Xvel ,6,Fs) 

2325 ICALCULNITE VICTCOSITY 

2330 CALt Viscyoul Temp, lempstat,U) 

2335 'CALCULNIE INTEGRAND FOR REYNOLDS NO 

2340 CALL Reintegrand( Kn,U,Yau,Ire) 

2345 DEFINE AN ARRAY TO STORE CALCULATED VALUES 
2350 Calc(N,))<Posit 

2355 Calct(N,2)-Beta 

7360 Catc(N,3!-Gamma 

22605 Calct(¥,4)-Phi 

2370 Celc(N,S)-Xvel 

2375 Calct(N,6)-xXref 

27380 Calc(N,7)=Vel 

2385 Calct(N, @)eMach 

2399 CrlctN,9)*Yau 

2395) Calc(N,1@)-Kn 

ZAG@D_ Calct(nN i) Cpt 

2475 Calc(N,12)-Cps 

2410) CalcOh V3) Qref 

TANG Calc, 14)-Veef 

2420 Calct(N,15)-Q 

2425) CalctN, 16) 

2430) Calc(N, 170-8 

2435) Calc(N,18)-Paq 

244% Calcth,19)-Fa 

2445) Colct(N,20)-Ps 

7450 Calc(N,7!)-Y 

2455) Calect(N 22) «Ire 

24°56) Calc(N,23)-Fo 

2457) Calc(h,74)-F I 


724160 Knaray(N)Calc(, 10) (WONT TO STORE THE Km VALUE IN ON 

2465 VARONY FOR MASS AVERAGING CALCULATIONS 
7470 Prbpos(N)-Calc(N,t) Ppa 

ZAIS) fine y(t) =Calcth, 16) pees 

7489) Barayth)-Calct(n, 17) fests 


2485) Caray(N)eCalctNn,22) 

749%) Scan-N 

ZA91 NEMT OM 

7496 Printcaie!: OFF END @Path! 

ZA98 FCAOECULATE ENSEMRLE AVERAGE OF XREF 

2499 CALL MrefensemhlelPaavg .fPpavg,G, Xrefavg) 

25@0 ICALCULATE ENSEMBLE AVERAGE OF VERFF 

2501 CALL Vrefensemble( Xrefavg Cp, lempavg,Vrefavg) 
7502) CALCULATE ENSEMBLE AVERAGE OF QREF 

2593) CALL Qrefensemble(Paavg Ppoavg,G.xXrefavg Q efavg) 
7574 'CALCULATE THE ENSEMALEAVYE OF STATIC TEMP 

Z25@5) Clk Tempstatensenbl ( Tempava, Xrefavga, lempstatavg) 
7506 TCALCULATE THE ENSEMRPLE AVE MF VISCOSITY 

2527 CALL Murefensemblal lenpstatavg,Muref) 

7508 Cale’ l, 75)" pavg 








2509 
2510 
2512 
7513 
2514 
2515 
ZS16 
2517 
7518 
27519 
7520 
z521 
2522 
7523 
75724 
2525 
2526 
2527 
7528 
2529 
7530 
253) 

7532 
7533 
2534 
7535 
7536 
2537 
7538 
2539 
254@ 
7544 

2542 
7543 
2544 
2545 
7546 
2547 
7548 
7549 
2550 
755) 

2552 
7553 
2554 
2555 
2556 
27557 
7558 
7559 
7562 
2561 

ZZ 
7563 
2564 
72555 
7556 
2587 
7°68 
POR 
7572 
757! 


enee 


7573 





TABLE Bl (CONTINUED) 


Calc(2,25)-Paavg 

Cata(3,25)"xXrefavg 

PRIN “Ses esee erases e scarves eseeesesOS HHO SEEOHHELES ESSERE EERE DD” 
PRINT °" 

PRINT “ENTER THE LIMITS OF INTEGRATION f.e., THE LOWEST TO THE " 
PRINT “HIGHEST SCAN NUMBER DESIRED FOR REYNOLDS CALCULATION.” 

PRINT "" 


PRINT “sec e see eee ree see are eereeeeee nes SPOR EPTEHHESEHSOESFESV ESE OEESE” 


PRINT “" 

FRINT “euecoserensceeeesesassereseeresee FOP eteneseertesaesEssaserenees” 
FRINT "" 

PRINT “ENTER THE LOW SCAN" 

INFUT Loupoint 

PRINT “eeeeesecereeee ee sr ereseseeee ee SP ESERTEFEDESER SOLS SSH SSOREE ESE” 
PRINT °" 

PRINT “ENTER THE HIGH SCAN” 

INPUT Hipoint 

LONOSUB ALL FROM “/CLASSICK/ROUTINES/LOSSCALC™ 

HINTEGRATE 1 

CALL Datint(Loupoint ,Nipotnt ,Caray(¢),Prbpos(*) Tintg) 
Rer12#1.679(((PpavgtPaavg)/27.76)/(53. 3*Tempavg) )*(Vrefavg/Muref )*lLintg 
FRING “eevee cover ecrerveesarer ees ee se FOS PUCPHEFOOTESEO FLERE SLO EEE” 
FRINT °" 

PRINT “ALIGN PAPER IN THE PRINIER. WHEN READY FOR A HARDCOPY OF THE ” 
PRINT "" 

PRINT “CALCULATED DATA, PRESS ““REDUCEO ONIA™” .” 

PRINT °" 

PRINT “eee neers ecees reser eee eer r ee vaeP SER HOSHSSSDERERORES ESTE ODEEFRE" 
ON KEY 4 LAREL “REDUCED DATA” GOTO Prntdatal 
Sptn3: CCIT Spin 
Protdatal: ¢RINTER IS Prnter 

PRINT “svevveoseassreresesssserereesapsevasezenuee’ 

PRINT "FILE “ Calcfiles 


PRINE “euesvetovesteseoresevesesesevessevusestonersa” 


PRINT 

PRINT “Gee ee ee see eer eer ese ees eee eenseseeFFFFOP RHEE F ORFF OP HEFE SERA ED ERTS 
PRINI 

PRINT “SCAN PRE BETA GANA PUT Xvel 

PRINT " POSIT” 


FOR N-1 f0 Scan 

PRINT USING "40, 3X,40.2D, 3X,MD. 300 , 3X MD. 3DE, 3X, MD. 3DE , 3X, MD. 30E , 3X MD. 30E 
NEXT N 

PRINT 

PRINT “eve eetereeestere senor seseeeeseeetFSSOeUeFeeFseHoeeseseoeHeDe Hose EES 
PRINE 

PRINT “SCAN Vel Vref Q Qref MACH 
PRIN 

FOR Net FO Scan 

PRINT USING “40, 3X,MD. 3DE, 3X MD. 30E , 3x ,MD. 3DE ,3X,MOD. 3DE,2X MD. 3DE ,2X, MD. 3D 
NWEXT N 


ERENT 

PRIM “evaveseesosenesreseeseorerseree eee estes eereseseseseseoseaseneeneseeeD 
FRING 

PRINT “SCAN Pref -Pt/Qref y Ire” 


FOP N-t 0 Scan 

PRINT USING "40, 3X ,MD. 3DE 3X ,MD. 30F ,3X MD. 306" IN, Calc(N, 18) ,Calc(N,21) Cal 
NEXT N 

PRIME OO” 

PRIN “Swecer ee eeeerseneeas essere eereeteeP FSC SEP ESSER SEER ESEHS ESE EE RED EDD 
PRICE 

PRINT “ ENSEMBLE AVERAGES” 

PREM 

FRINT OPP A FAAS TE ME ARG MPEP AVG VREF AVG 
PRINT USENG “MO. IDE 5x MID. 2M 5%, 30. 2D,5% MO. IDE SX MD. IDE, 3K MND. IDE Ppa 


~sJ 
be 


2574 
zS7S 
2576 
2577 
2578 
7s79 
7580 
7258) 

2582 
7583 
2584 
2585 
2586 
2587 
2588 
z7S89 
2590 
2591 

2592 
2593 
7594 
7595 
2596 
2597 
7598 
2599 
2609 
zG6@1 

2602 
26¢3 
ZBO4 
26¢5 
7606 
2607 
7628 
2609 
2610 
z6t4 

2612 
2613 
2614 
2615 
7616 
2657 
7618 
2619 
2620 
262) 

26272 
7623 
7F74 
Zh2S 
7626 
2627 
7678 
2679 
2630 
763) 

7632 

7633 
7H34 
7635 
rani) 
2637 


TABLE Bl (CONTINUED) 


PRINT “MUPREF TEMPSTATNVG" 
PRINT USING “MO. 30€ , 3X MO. 30E" sMuref  tempstatavg 
PRINT "” 


PRINT “REYNOLOS NO” 

PRINT USING “D.4DE"pRe 

PRING “cewtens cessor areas PP ePORO nr ESRF HF EHTOST CREST SHH ODOTREEReEReTESE” 
PRINTER IS Scren 

OUIPUT @Path4iCalc(e) fSERIAL OUTPUT STATEMENT. 

END IF 

PRINT “eeeweet reece ss eese POC ess etnreeveaP PoP FFRESeeeOResHeBeoeesHusernen™ 
PRINE o* 

PRING "TO CALCULATE THE CP’S FOR THE BLADE OAIA, PRESS ““BLADE CP'S*"” 
PRINT “ PRESS “"GO ON"” TO CONTINUE.” 

PRINT °" 

PRIN] “eeeream reste cee ese EPORRRSSEREUEDEF SSS SEE HRRDESRPOTEHRESHR ETO DERE SEES 
ON KEY 1 LABEL “BLALK ct 3" GATO Calculatecp 

ON KEY 4 LABEL "GO ON" GOTO Loadoptionz 
Spins: GOO Spins 
Calculatecp: MASS STORAGE 15 “/CLASSICK/REDUATA” 

PRINT “" 

PRIN] “sc ee rer reece eee nese POS OD Doser RPREF OPER ER SE SHEET OS ESRF REESE RROD” 
PRINT "" 

PRINT “PMTER THE FILE NAME OF THE BLADE DATA SCALEO IN ENGINEERING UNITS“ 
INPUT Sclhbladfile$ 

PRINT “eve eee ream eaeee eerste RCPS Ea esarESOROHTESESSERE SAFES HERE P RSP RReeo ER 
ASSIGN PPathS 10 Sclbladfile*% 

PRINT "" 

PRINT "ENTER THE FILE NAME TO STORE THE MASS AVERAGED CP’S CALCULATED" 
PRINT “FROM THE BLADE ONTA.” 

INPUT Bladcalic$ 

CREATE BUA) Bladcalc®, 10a 

ASSIGN @Path& 10 Bladcalc$ 

DIM Pentdatat!,48) IOIMENSION STATNENTS FOR BLADE ARRAYS 

TARE HERE SO ARRAY SPACE IS ONLY ASSIGNED 
{If BLADE OF TION 1S SELECTED. 

DIM Comassavg( 48) 

MAT Comassavg? (@) 

HAT Prntdatanm (@) 

PRIN, “seaeeerrestesarerseseseeseens senses seseresdeveuveeesevangees” 
PRINT 

PRINT “ENTER THE LIMITS OF INTEGRATION f.e., THE LOWEST TO THE ™ 

PRINT “HIGHEST SCAN NUMBER OESTRED FOR BLADE CP'S” 

PRINT?" 

PRINT “POP OFOPEO RTT SOP EOPESHHEE FSG e Ree F EHH eK SSOP EE ERE EHF Hoe HERYS EE” 
PRING 

PRINT “see emer ees esreseeeeo es OES ECR ot ores T eee eeEUDFORO LEE SOEHOLEET AE RE” 
PRINE 

PRINT “ENTER THE LOW SCAN” 

INPUT Laoupoint 

PRINT “seesesseestenesseseSSHCEP He eeS EELS FSET HTST EH SET HERES BOSH EDESS” 
FRET 

FRINE “ENTER THE HIGH SCAN” 

INPUT tHipoltnt 

VINTEGRATE A 

CALL DatintiLounotnt Hipotnt ,Aacayle) Prbpost*) Rintg) 

HINTEGRATE 8 

CALL Datint( Lowpoint ,Hipotnt ,Barayls) Propose) Bintg) 

FENTEGROTE Kr 

CALL Datint( Lowpoint Hipoint Knarayl*) Prebposl*) Knintg) 

Al=Nintga/Kntintg 

Bi-Dintg/Kninta 

ENTER OF athSrPerntdatate) 

PoePrntdatath | Fy 

FOR NeFirsthladeprt 10 Lastbladerrt HORTAINED FROM PORT ASSIGNMENT SHEET 
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array assignment section of "CALC." These changes are shown 
in lines 2071 and 2191 of Table Bl. 

Modification to provide for mixed-out flow loss 
required subroutine calls Xrefensemble, Vrefensenble, 
Tempstatensemble, to calculate values Y,,.;, V.., and T,,,.-, needed 
for evaluation of the integrals as defined in Appendix D. The 
subroutines required are contained in "SUBCALC." Additionally 
most values had to be placed in arrays for the proper passing 
to "LOSS." Lines 2350-2510 of Table Bl contain the changes to 
"CALC." Table B2 is a listing of "“SUBCALC." 

2. "LOSS" Changes 

The "LOSS" program was ‘7.dified to perform fully- 
mixed-out flow loss calculations in addition to the previously 
programmed mass averaged loss calculation of Classick [Ref. 
6]. This required the change of variables from simple to 
array variables, the addition of five subroutines and 
subroutine calls, and the associated print and format 
procedures to produce the additional output. 

The pressure, dimensionless-velocity, yaw angles and 
position variables were assigned to an array to allow the 
subsequent calculations discussed in Appendix D. This allowed 
for proper passing of upstream and downstream values to the 
appropriate subroutines. Lines 740-1290 of Table B3 are where 


the changes occurred. 
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TABLE B2 


SUBCALC PROGRAM LISTING 


{EfLE SUBLMLE 

(THIS FILE CONTAINS ALL THE CALCULATION SUBROUTINES CALLED BY THE 

1DATA REDUCTION PROGRAM CALC. 

SUB Sgcalc(Pa,P!,PZ3,P4,P5, Beta, Ganma) _ 
Beta-(PI-P23)/(P1AP a) 

Ganmmae( P4-P5)/(P1-P23) 

SUBENOD 

SUB Xphicale( Beta, Ganma,Xvel ,X(e) Phi ,PCe)) 

OPTION BNSE 1 

DIM E(6) 

DIM FCB) 

MAT E= (@) 

MAT Fe (O) 

FOR J=1 10 6 

ECS KOE, J) tXC2, J) eGanmatX( 3,3) °¢Gamma”Z+X(4,J3)*Gamma* 341X(5, 0) *Gomma’ 41x 6, 
FC PCL, J24PC2, 3) °GammatP( 3, J)*Ganma”’2+P(4,J)*Ganma* 3+P(S,J)*Gamma” 44P(6, 
NEXT J 

Xvel=EC1)4E(2) *BetatE(3)*Beta’ ZtE(4)*Beta® 3+E(S) *Beta 44E( 6) *Beta’S 

PhinF( D4F( 2) eBetatk( 3) *Beta’ ZtF(4)*Beta StF (S)eBeta 4tF(6)*Beta’sS 

SUBEND 

SUB Vagcalc(Xvel ,Cp, femp,G,Vel ,Mach,P! ,Pa,Q) 
Vel=Xvel*(2*¢Cp#77883Z.174e Temp)” 5 
Mach7(((Xvel*72)/¢0-Kvel*2098¢27/(G- 1097.5 
O-(P14Pade(G/(G- 1) deXvel "280 1-Xvel “2)°C1/(G-1))) 

SUBEND 

SUB Xrefcalc(Pa,Pp,G, Xref) 

Xrefr(t-(Pa/(PpiPa) )°((G6-1)/G)97.5 

SUBENOD 

SUB Kncalc(Pa, Pt Pp, Xvel Xref .G, Yau ,Kn) 

Kn=((PI+Pa) /CPptPa) et Xvel/Kref eC CC t-Xveal 20/0 4-Kref*Z)9°C1/0G- 19)? 


SUBIR) 

SUB Coefpress(P! ,Pp.Pa,Xvel ,G,Cpos.Cot?) 

Cot<(PiiPad/(PpiPad . 
Cns-((P14Pade( C1-xXvel729°(G/(G-1) 970 PptPa)d 

SUSI ND 


SUB Ensemble(Pp Pinitial Pa Painitial Temp, tinitial Poavg Paavg, Tempavg,N) 
Poe-Pp+Pinitial 

Ppavg7lhpe/N 

PinitialsPpe 

Terfampttinitial 

Tempavar le/N 

Tinttial-Te 

Poe-Pathninitial 

Paava7Pre/N 

Painitial=Pae 

SUGEND 

SUB Xrefensenble(Paavg ,Pnavg.G,Xrefavg) 
Xrefavg=(1-((Paavg)/(PpavgtPaavg) )°((G-19/6))°.5 
SUBENO 

SUB Vrefensemble( Xrefavg,Cp, Tempavg, Vref ava) 
VrefavageXrefavg?(2°CpeTempavg® 7788 32.974)°.5 

SUBFND 

SUB Qrefensemble(Paavg.Poevg,G,xXrefavq, Qrefavg) 

Or ef avar( Ppavg?Paavg)#(G/(G- 1))eXrefavg’Ze()-xXrefavg’Z)°C1/(G-1)) 
SUBFEND : 

SUB Qvrefcalc( Xref ,Co,Temp,G,Pp,Pa,Qref Vref) 
Vrefexrefe(27eCpe778e372.174eTemp)*.S 
Qrefe(PatPp)e(G/CG- Fe Mref 72 eC C1-KreFk2)°C1/06-1))) 
SUBEND 

SUB Cpointrgrand(’p Pt Pa.G Xvel A,B Kn) 

M-Pp/( (FP DIPade(G/(G-1) eXvel “ZeCCt-Xvel “20°C 1706-19) 
Nie(Pa/(P i ePadd-CO-Xvel*2)°(G/(G-1))) 

N2"(G/(G- Vd deXvel 70001 -Xvel 22° C1706 19d) 

NeNI/NZ 
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TABLE B2 (CONTINUED) 


A-MtKn 

B-Ne*Kn 

SUBEND 

SUB Cocalc(Al 61 ,Pp,Plocal ,C) 
C-((Plocal/FPp)#Ai)+61 

SUBFNO 

SUBD Staticpress(P? ,Pa,Xvel GPs) 
Pa=(PlePade¢ i-Xvel722°(G/(G6- 1) 
SUBFNO 

SUB PrefqrefiFp, Pt ,Qref Pq?) 
Pro=(Pp-Ph)/Qref 

SUBFND 

SUB Viscyoul Temp, Tempstat,U) 

U~(( Temp/Tempstat)*1.5)¢((198.72+Tempstat)/(198.7Z+1T emp) ) 
SUBEND 

SUB Retntegrand( Kn,U, Yau, Ire?) 
Tre-(Kn/COS( Yaw) }#U 

SUBEND 

SUB Tempstatcale(Xvel, Temp, Tempstat) 
Tempstatelempe(1-(Xvel*Z)) 

SUBEND 

SUB Tenpstatensemb]( Tempavg, Xref avg, Tempstatavg) 
Tenpstatava7lempavar(i-(Xrefava’2)) 
SUBFND 

SUB Murefensenble( Tempstatavg,Muref ) 


Muref=(¢.063379¢Tampstatavg’1.5)/(198.724+lempstatavg) 01. 1S3E-S 


SUBEND 
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5B@ 


678 
63® 


TABLE B3 


LOSS PROGRAM LISTING 


{PROGRAM LOSSE 
{THIS PROGRAM USES VALUES FROM THE CALC ARRAYS GENERATED BY REDUCING 
ISCALED DATA IN PROGRAM CALC. SUBROUTINES INTEGRATE THESE VALUES AND A 
STATIC PRESSURE RISE COEFFICIENT ,AVDOR & LOSS COEFFICIENT IS CALCULATED. 
IMUCH OF THE CODING WAS PREVIOUSLY COMMENTED ON IN PROGRAM ACQUIRE AND ; 
(PROGRAM CALC. 
GPTION BASE 1 
DIM Calcl( 100,25) INOTE THAT u AND 1 DESIGNATORS OISTINGUISH 

1THOSE VALUES FROM UPPER SURVEY AND LOWER 

ISURVEY STATIONS RESPECTIVELY. | 
DEG 
G7t.4 
Screne1 
Prnter=7@} 
OIM Calcul $AA,75) 
OTM Bows tOrea) 
DIM Positul 100) 
DIM Cptxkn 100) 'CONBINED VALUES TO MAKE THE INTEGRATIONS 
DIM Cotuxk nul 100) IMORE EXPLICIT 10 THE PROGRAMMER. 
DIM Cposxkn( 100) 
DIM Kn( 10) 
DIM Knut 1¢@@) 
DIM Yxkrit 100) 
DIM Zxknul F@@) 
DIM Paul 100) 
DIM Pal(1@d) 
DIM X1¢ 120) 
DIM Xiref( 100) 
DIM Piref( 10) ‘ 
DIM Ptl( 1%) 
OU Yru tC 1am) 
DIM Xu: .0@) 
DIM Xuref( 10) 
DIM Puref( 100) . 
OIM Ptul 1%) 
DIM Yauul 1%) 
MAT Calcl= (0) 
MAT Cakcur (@) 
HAT Postt= (@) 
MAT Positus (@) 
MAT Cpotxkn- (0) 
MAT ECptuxknus (0) 
HAT Cpsxkn- (@) 
MAT Kn= (@) 
HAT Kruz (O) 
MAT Yukn= (@) 
MAT Ixknu- (@) 
HAT Pau~ (8) 
MAT Pale (@) 
MAT Xi= (@) 
MNT XIref= (@) 
NAT Plrefs (@) 
MAT Ptie (@) 
MAT Yaul~ (0) 
MAT Kur (A) 
MAT Xurer- (@) 
MAT Puref~ (®) 
MAT Ptu- (@) 
HAT Yauur (0) 
LOAOSUB ALL FROM “/CLASSICK/ROUTINES/LOSSCAI C” 
LONDSUB ALL FROM “/CLASSICK/ROUTINES/LOSSCNI CI” ‘ 
LONDSUB ALL FROM “/CLASSICK/ROUTINES/SUBMI XLOSS1“ 
MASS STORAGE IS “/CLASSICK/REDDNTA” 
PRINTER IS Prnrter 
PRINT “LOSS CALCULATION RESULTS FOR STATION TWO AND MIXED FLOW RESULTS.” 


PRINT “eet scoese cee asse cee ene ee See eet FEES SEE SHS OER RES TOES EOR EPO LED EeESOEE” 
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TABLE B3 (CONTINUED) 


640 PRINTER IS Scren 


650 PRINT “ENTER THE NAME OF THE FILE CONTAINING THE CALCULATED DATA FROM THE” 
650 PRINT “LOWER PROBE" 

6723 PRINT “seevnesnesressee re eeee seer eee S EPH EFESHPEEESSEFESE SD EERE EHEH ODD EEE” 
680 INFUT Calclfiles 

698 PRINT "ENTER IN THE HIGHEST SCAN TAKEN FOR LOWER SURVEY” 

700 PRINT “OPUS O RTO ESE ETH DSSES OD SOETOPEHCEHSSESEET ERODED SCORES SER ERT ERS ERER” 
710 INPUT Scan] 

720 ASSIGN Path! 10 Calcl files 

730 ENTER @PathtiCalcl(#) 

FAD FOR Net 10 Scan} 

750 Posit(N)*Calcl(N,1) 

762 Kn(N)-Calcl(n,1@) 

wT Cpt-Calcl(N tt) 

78 Cos*Calcl(N,12) 

730 Pal(N)=Calcl(N,19) 

B22 Psel-Calcl(N,2@) 

810 XION)*Calcl(N,S) 

820 Xlcref(N)-Calcl(N,6) 

830 Plref(N)=Calcl(N,23) 

24% PRION =Calct( N74) 

BSO Yawl(N)=*Calcl(N,9) 

860 QI-Catcl(N 15) 

90 Ya(PalON)-Ps1)/Q) 

319 Cptxk n(n Cpt KntN) 

920 CosxkntN)-CoseKntN) 

930 YakntNod@VekntNn) 

940 NEXT N 

350 Skipy: PRINT “" 

960 Pirefavg-Calcl(t,25) 

370) PalavgsCaltcl(2,25) 

380) = XIrefavg-Calcl(3,25) 

990 PRINT FUTER THE NAME OF THE FILE CONTAINING THE CALCULATED DATA FROM THE” 
1090 PRINT “UPPER PROBE” 

1010 PRINT “POP PORO OHO TORR TATOO REPS ERE REO DO PRO REED ROT OEE EES EO SHROUDED DO REFEDO" 
1920 INPUT Calcufiles 

1030 PRINT “ENTER IN THE HIGHEST SCAN TAKEN FOR UPPER SURVEY" 

1@49) PRINT “POO DORR ERER ERED FEEDER HOE RETESEHEE DED DD DED DODD DR HERR Redeaaeeeeten” 
{@50 INPUT Seranu 

1860 ASSIGN @Path? TO Calcufiles 

1070 ENTER OPath2:Calcu(®) 

1989 FOR N=} TO Scan 

1090 Positu(N)-Calbcu(N,)) 

1100 Knult-CalcutN, 10) 

1110 CotueCalcu(N,1t) 

1120 Paul NdeCalcu(N, 19) 

1130 Pau-Calcu(N,720) 

114 Qu-Calcu(N,15) 

VIS@ Mahe CalouCn 5) 

116% Kuref(N)eCalcu(N, 6) 

1170 Puref (N)*Calcu(N,23) 

1180 Ptu€N)-Catcu(N,74) 

119@ YeuuON) Calecu(h 9) 

1210 Z=(Psu-Paut(N))/Qu 

12720 Cpotuxk nut Ni-CotueK nut N) 

9230 ZxkrmuiCNdeZeKnulh> 


12740 NEXT N 
125@ Skipz:PRINTER IS Proter 
1260 PRINT “USING FILES “ Calclfile$,” “,Calcufiles 


1270 Purefava-Calcult 25) 

1280 Pauevg-Calcul2,Z5) 

1290 Xurefavg=Calcul 3,725) 

1300 PRINT "" 

1310 PRINT “XLREFAVG PLREFAYG PALAVG" 

1370 PRINT USING “MD. 3DE 1X, MO. 30k MO. SDE" XI refavg.Plrefavg Palavg 
4330 PRINT “" 
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1340 
13S@ 
1360 


1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
15820 
1530 
1540 
1550 
1560 
157@ 
1580 
1590 
1600 
161 
1629 
1660 
1670 
1689 
1690 
170@ 
171@ 
172@ 
1730 
1746 
1750 
1760 
1770 
1780 
1730 
1809 
1810 
1820 
1830 
1849 
1850 
1860 
1870 
1880 
1890 
189) 

1892 

1693 
1900 
1901 

1902 

1993 
1910 
it 

1917 
1913 
1920 
$930 





TABLE B3 (CONTINUED) 


PRINT “XUREF AVG PUREFAVG PAUAVG" . 
PRINT USING “MD. 30E,1X,MD. 30E MD. 30E" 1 Xurefavg,Purefavg Pauavg 
PRINT “" 
PRINTER IS Seren 
PRINT “" 
PRINT "ENTER THE LIMITS OF INTEGRATION FOR THE LOWER PROBE SURVEY” 7 
PRINT “" 
PRINT “Se eteseee rete secre es FSSC oP POOR ESPELORSOFESEVEFHODEHFHSASOREBHRSEOEE" 
INPUT “ENTER THE FIRST POINT” Lowpoint) 

INPUT “ENTER THE LAST POINT” ,Hipoint] 

1 CALL THE INTEGRATION ROUTINE 

CALL Oatint(Loupotint! ,Hipoint! Kn *) Posit(*®) Oenominator > 

CALL Datint{(Loupoint) ,Hipoint] ,Cpotxkn(*) Fosit(*e), Intega) 

CALL Datint(Lowpointl Hipotnt! Cosxknt*) Posit(e) Entegc) 

CALL Datint(Lowpoint] Hipoint) ,Y¥xkn€e) Posit(s) Integy) 

CALL Integrals(Ptl es) Xie) Pal(*) Plrefle) Xtref(*#), Yaul(*) Posit(®) Hipo 
PRINT “" 

PRENT “ENTER THE LIMITS OF INTEGRATION FOR THE UPPER PROBE SURVEY" 

PRINT "" 

PRINT “cu seceeenetevaesee sere sees FPP OOSS EHP ESESSROTREH DT SECCHSORREE ERE OED” 
INPUT “ENTER THE FIRST POINT” ,Loupointu 

INPUT “ENTER THE LAST POINT” ,Nipointu 
CALL Datint(Loupointu Hipointu,Knul®) Posttut*) Numerator ) 

CALL Datint(Loupointu Mipointu,Cptuxknul*) Positul®), Integb) 
CALL Datint(Loupointu Hipointu, zZxknul*) Positu(*), Integz) 
CALL Integroals(Ptul*) ,Xu(#) Pauls) Purefle), Xuref(e),Yauul*) Positul®) ,Hipo 
PRINTER IS Prnter 


PRINT " INTEGA INTEGC INTEGY INTEGB INTEGZ NUNERATOR" 

PRINT USING “MD. 3DE,1X,MD.3DE ,1X MO. 3DE,1X,MD. 3DE,1X,MO. 3DE MD. SDE“ a Intega, 

PRINT "" 
PRINT “DENOMINATOR” 


PRINT USING "MD. 3DE" 1Denominator 

PRINT °" 

PRINT “---- erence nnn nnn ce nn nn ne rn nen nn nen ce tere en tenet nn ene ne 

Cp2-¢( Integz/Denominator )+( Integy/Denominator ) : 
fvdr "Numer ator/Denominator 

PRINT “STATION TWO RESULTS” 

PRINT: "2 Joe = 

PRINT “SINTIC PRESSURE RISE COEFFICIENT” 


PRINT USING "MO. 3DE"1CpZ 
PRINT "" 
PRINT “AVOR” 
PRINT USING “MO. 30E" yAvdr 
PRINT "" 
U-CIntega Cl/Avdr)*( Integb) )/(Integn- Integr) 
FRINT “LOSS COEFFICIENT” 
PRINT USING "MD. 30E";W 
FRINT "" 
PRINT "---- nen en nnn cc enn n cn nn een nr nnn errr te nec en recs ccc nee i. 
PRINT "" 
PRINT “THE FOLLOWING IS FOR MIXED FLOW RESULTS” 
PRINT “" 
PRING “-~------ 22 cen ene nn er nnn ne er rn rent ne ne nese n eee “ 
PRINT " TTAVGL TZAVGL T3AVGL ItavGU TZAVGU T3avGuU" 
PRINT USING “MO. 3DE,1X,MO. 3DE,1X, MD. 3DE,1X MO. 3DE,1X,MD.3DE, 1X, ND. 3DE" sla 
PRINT "" 
CALL Conscalc(Llavgl .I7avgl ,l3avgl ,Xlrefavq,favg! ,Bavgl ,Cavgl ,Davgl ,Eavgl ) 
PRINT “AAVGL BAVGL CAVGL DAVGL EAVGL” G 
PRINT USING “MO. 3DE,1%,MD. 3DE,1xX MD. 30E , 1X, MD. 3DE, 1X. MD. 3DE” sAaval , Bavgl ,C 
PRINT “" : 
CALL Conscalc(Ilavgu, IZavgu, l3avgu, Xurefavg,Navqu, Bavqu,.Cavgu, Davgu,Eavqu?) 
PRINT “ANVGU BAVGU CAVGU DAVGU EAVGU" 
PRINT USING "MD. 3DE,9X,MD. 30E, 1X, MD. 3DE,1X, ND. 30E ,1X,MD. 3DE” sAavgu, Bavqu .C 
PRINT °" 
CALL Mixfloul(Aavg) ,Bavgl ,Cavg! ,Davgl ,Eavgl .Xlrefavg,llavg! Palavg. Ximixflo 
CALL Mixfloul Aavgqu. Bavqu. Cavou, Oavau.Eavau. Xurefava. ltavau.Pauvava. Xumixflo 
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1s50 
1360 
1970 
1980 
1950 
1992 
2020 
2010 
2070 
2030 
2049 
250 
26D 
2070 
2200 
2090 
2100 
2110 
2120 
2132 
2140 
2153 
2160 
2170 
7180 
2190 
229 
2210 
2224 


TABLE B3 (CONTINUED) 


PRINT USING "MO. 3DE MD. 30E,1X,MDO. 3DE, 1X,MN. SDE" sXimixflow, Youlmixfiou,Ptir 
PRINT “" 

PRINT "XMIXFLOW YAWMIXFLOW PIRATIO PSRATIO FOR UPPER STATION” 
PRINT USING “MD. 3DE MD. 3DE, 1X, MD. 3DE, 1X, MD. IDE“ a Xumixflow, Yawumixflouw ,Ptur 
CALL Mixloss(Pturatio Ptlratio,Psiratio,Palavg,Pauavg,Plrefavg Purefavg,Wn 
CALL Avdrmtiu(Ptlratio Pturatio,Ximtxflow, Xumixflow, Xlcefavg, Xurefavg, Yaulm 
PRINT "" 


PRINT “MIX FLOW RESULTS” 

PRINT “ 

PRINT "" 

PRINT “MIX FLOW STATIC PRESSURE RISE COEFFICIENT" 
tPRINT USING "MO. 3DE";Comixflou 

PRINT “" 

PRINT “MIX FLOW AVOR" 

PRINT USING “MD. 30E"sAvdrmixf low 

PRINT “" 

PRINT “MIX FLOW LOSS COEFFICIENT” 

PRINT USING "MD. 3DE"sUmixf lou 

PRINT "" 

PRINTER IS Scren 

PRINT “" 

PRINT “Ce ceea eset ere neers eo eee eee er EEFEH EP ESSER SES SSROEHHETRESECREOHESE” 
PRINT "" 

PRINT “ END OF PROGRAM” 

PRINT "" 


PRINT “eevee eee rece e eee ee P PERSE REET AHOEHESECASESESESERESE SES SSE EER DERE” 


END 
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The additional subroutines for the fully-mixed-out 
loss calculation are in the routine "SUBMIXLOSS." Subroutine 
"Integrals" is used to calculate the necessary integrals as 
shown in Appendix D. Subroutine "Conscalc" reduces the 
integrals to the needed constants for the fully-mixed-flow 
quadratic equations described in Appendix D. Subroutine 
"Mixflow" returns the mixed-flow pressure ratios for the mixed 
loss calculation. Subroutine "Mixloss" provides the mixed-out 
loss coefficient while subroutine "AVDR" provides the mixed- 
out axial-velocity-density ratio. Lines 10-640 of Table B4 
incorporate these changes. 

The print and format statements were added in lines 
1610-2150 of Table B3. These changes are shown in Figures B3 
anc B4 which are the printouts of the loss resuits for the 


reference blade and the slotted blade. 


B5. PROGRAM LISTINGS 
The complete listing of the programs and associated 
subroutines is given in the Table of Contents for Appendix B. 


The listed programs are matched with the below identified 





subroutines: 
ACQUIRE CALC LOSS 
SUBACQUIRE SUBCALC SUBLOSS 


SUBMIXLOSS 
Plots as listed were printed out using the following 


plotting programs: 
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TABLE B4 


SUBMIXLOSS PROGRAM LISTING 


{THIS FILE CONTAINS THE CALCULATIONS NEEDED TO FIND THE HIK 

TFLOW FARAKETERS OF ANY RERSURED STATIGN 

t 

PINTEGRALS FINGS THE TinvG ,12nvG AND 13nVG VALUES 

t{COHSCAHLC FINDS THE VitUES OF #,6,C,0,E 

CHIAFLGW TINGS THE VG@LUES Gi Krall, FU RATIGN ANG OS RRTIG 

VHERLOSS (INGS THE CPT, Avil iG HIK FLOW LOSS 

SUG Integrals(Ft( a) Klee) Pate Ftref(e) Keref(s) raul e?) Posit(e) Hipoint,b 
GFTIGN Bise t 

G21.41 

DIM Integrall¢ loa) 

GIM IntegralZ( to? 

DIM Integral 34 1007 

Hat Unteqrall= «dr 

Hit IntegralZ= (2) 

Hit Integral3- (0) 

FOR N=1 TG Scan 

Integral FON CCE CON) that No pee Ned Le REN? 27° €1/0G6-1778CGS( raut Ns 2071 CP treet 
Inteqral2(Ni=(Integral LONTeKCN OSIM raWwtND Pie Knsred One 

Integral SCN ACC FREON tPatN7 eC T-XON?D 29) 3.540 7eKOND ZeCl-KOND 27° 2.5¢CG5¢r 
NEXT WN 

Cit Gatint i Loupoint Hipoimnt Pnotegral lie) Fossties, Pte 

Chtt Uatintl (Lowpoint Hipoint ntegralZ¢e¢) Fosst¢e7,12) 

Citt Gatinti(lLoupoint ,Hipornt Integral 3i¢?,Fosit¢es,13? 

Itavg-I! 

IZavg7l2 

l3avo-13 

SUBE Nid 


SUB fooscalciliavg.tZavg,l3avga,xretavg,a,b,0 BE» 
Mr Aresavar(iZavqsItavg? 

Brrrefavge( I3avgqs ltavg> 

G-t.at 

CececGelascG- tir 2 

O-7eSORI Cre 1-CC 2G 0G-bisen 79-6 7 
ErCb-cCZeGs/(G- 1700 27 246 20h 2 

SUBEND 


SUB Hixflowift,6,C,0,€,Axrefavg,tlava,Faavg, xamixflouw, raumixflou Ftratio,FPera 
Grt.4i 
Amixflousorte(-G+SGhI(G 2-d4eteE py s(Z9t? 
Amixflousqr2«(-O-SQ@hUG 7-4eCeE rst 2ecd 
Amixfloul*SGhiCamixflousgqrt? 
AmixflowZ SGRICAmixf bousar 22 
TF xmixflowlsamixttow2 THEN 
Amixf lowsKmaixé Low2 
ELSE 
amixf lousxAmixf lowl 
END IF 
raumixf LowetiSnt is amixé bow) 
Ptratror(xrefavaqs aminflowle((t-xrefavg 2) 2.59/¢1-Amixflow 2) 7.SetTbavg/C 
Psratio-Ptratioe¢t-xmixflow 2) (6/¢G-4)7 
SUGENG 


SUB Mixloss(Ft2ratio Ftiratio Fsiratio Fal Pau Fie Fue loss? 
Loss (Ftiratio-Ft2ratior(Ptiratio-Felratio) 
SUBEND 


SUB Aver mix(FPtlratio Fturatio,Almix,xAumix,Alref,xuref,rawl , rawu, fiver) 
Kimixflou-Ftlration(AlmixsAlced sect t-xlbmax 2oeCl-xlre? 207 %.59COS¢ raul? 
humixflou-Fturatios(xumixsaAured e(¢l-xumix 29/¢1-Rurad 207 2.5¢C05¢ raw) 
fivdr ~humaixf lous K beaixf lou 


SUBEND 


81 








LOSS CALCULATION RESULTS FOR STATION TWO AND MIXED FLOW RESULTS. 


PPC T HOF P EERE TECHS REE TFE EERE SEO OFERESERESSVSEREPLISHETHSES CEO SHFEEES 


USING FILES L- @4MAY7CALC U-@tJUNCALC 


XLREF AVG PLREFAYG PALAVG 
9.3427E-O2Z 1. 2676401 4.Q066E +02 


XUREF AVG PUREFAYG PAUNVG 
9.318E-O82 £.263E4+Ol 4.07464+02 


INTEGA INTEGC INTEGY INTEGB INTEGZ NUNERATOR 
2.325E#OO 2.225E+#OD §.Q01BE+OD 2.357E400 -1.177E-O1 2.376E400 


DENOMINATOR 
2. 339E +00 


STATION TWO RESULTS 


STATIC PRESSURE RISE COEFFICIENT 
3.QS1E-@1 


AVOR 
1.O16E #00 


LOSS COEFFICIENT 
1, @r4e-Ot 


THE FOLLOWING If OR MIXED FLOW RESULTS 


THAVGL © L2AVGL T3AVGL TIAVGU IZ2AVGU I3NVGU 


7,.798E-O1°-6.965E-@t !.1S7E+@2 7.91BE-@1 2.922E-O2 1. 1496+02 


NAVEL BAVGL = CAVOL DAVGL EAVGL 
8. 344-02 1. 38GESOY. 3.ASSE4O1 -1.B81GEI@Z2 2.245640 


™ 
ANVGU BAVGU CAVG OnvGU EAYGU 
3.438£-@3 1.357640) 3.45564 ~V.TIVE+OZ = 1.032E 400 
MMIXFLOU YAUMEXFLOWU PTRATIO PSRn FOR LOWER STNMTION 


V.V1SE-@1 4.845640) 9.9436-@1 9.5256 - 


XMIXFLOW YAUMIXFLOW PIRATIO FSRATIO FO FPER STATION 
7,.658E-@2 2.5746400 9.576i-@1 9. 385E-@1 “ea 
EES Pies goa ae Ce te ay EN art aN ge gree hema Beis Seine ge | vig tag erie eee ences jee ee eins Ae e/a pte ee le eee - 
NN 
MIX FLOW RESULTS AS 


MIX FLOW STATIC PRESSURE RISE COEFFICIENT 


MIX FLOU AVOR 
1. @1SE +00 


MIX FLOW LOSS COEFFICIENT 
8. 760E-@1 


Figure B3. Reference Blade Loss Output 
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LOSS CALCULATION RESULTS FOR STASION TUO AND MIXED FLOW RESULTS. 
COOTER OF SCH OUR EERE OH ORE SPAR EE SCOT ETH OSES PERE DE ROOF ORE DU EEE ES 


USTNG FILES L- @4Ay7CALC U- JIMAYHCALC 


XLREF AVG PLREFAVG PALAVG 
9.342E-@2 t.267E4+01 4. Q066F +02 


XUREF AVG PUREFAVG PAUAVG 
9. 31SE-@2 1.760&401 4.068E +07 


INTEGA INTEGC INTEGY INTEGB INTEGZ NUMERATOR 
2.32561 2.27SE4OO 1. OtGE4OA 2.3B8BEI1OS -1.1SBE-O1 7.412E400 


DENOMINATOR 
2. 339E 100 


SIANTION TWO RESULTS 


STATIC PRESSURE RISE COEFFICIENT 
3, OS9E-OF 


AVOR 
1. @31E 408 


LOSS COEFFICIENT 
@.969F AZ 


TT AVYGL YZAVGL T3AVGL Tinveu 17AVGU 13NVvGU 
7.778 Of GB.96SE-O1 FT. tS7E#@2 8.03B8E-O1 3.13G6E-@2 1. 1458402 


AAVGL BAVGL CAVGL DAVGL EAVGL 
8. 344€-@7 1.3NGE+Ot B.4S5E+Ot -1.B81GE1@2 2.74S5E400 


ANVGU BAVGU CAVGU DAVGU EAVGU 
3.6356-@3 1.328E4OI F.ASSEtA! -1.647E4+%2 1. 202E 400 


XMEXFLOW YAWMEXF LOU PIRATIO PSRATIO FOR LOWER STATION 
tT. VtSE-@1 4.845E+@1 9.943E-@1 9.525E-O1 


XMYXFLOW YAWMIXFLOW PIRATIO PSRATIO FOR UPPER STATION 
T.AOKE-O2Z 2. 6G9E+CO Y.SAME-O1 9.342E-A1 


MIX FLOW STATIC PRESSURE RISE COEFFICIENT 


MIX FLOU AVOR 
V.@IIE #0@ 


MIX FLOW LOSS CORFFICTENT 
9.627£-1 


Figure B4. Slotted Blade Loss Output 
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Program Plot 


CPBLADEPLOT Figure 12 
BETAPOSIT Figure 7 
PRESSPLOT Figure 9 
VVREFPLOT Figure 8 


The plots are printed using the DUMP GRAP key on the Hewlett 
Packard keyboard. A simple understanding of the plotting 


procedures of Reference 10 is needed to ensure proper plots. 


B6. DATA LISTING 

Table B5 lists the scanivalve port and scanner channel 
assignments for data acquired using the program "ACQUIRE." 

An example of the table of survey data for an upstream 
survey output by "ACQUIRE" in raw measurement units (volts) is 
given in Table Bé with the corresponding scaled (engineering 
units) data output in Table B7. Results of downstream surveys 
for both reterence and slotted blades are similar, with 
variations occurring only in measurements, scan numbers and 
scan positions. 

The following list provides the reduced data output 


tables and the corresponding survey position and blade: 


Table Position Blade 

B8 Upstream Reference 
B9 Downstream Reference 
B10 Downstream Slotted 


An example of scaled data output by "ACQUIRE" for a 
surface pressure scan is given in Table Bll. The associated 
table of pressure coefficients calculated by "CALC" is listed 


in Table Bl2. 
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B6 


EXAMPLE RAW DATA FILE PRINTOUT 


PCPA PET ESO OHS ETE RO HOH CRORE OCASOTELEES PRED 
PROBE RAW DATA FILE 


PSHTAAST ASSERTS. CHER SSSCSHSSCESEETEFS RSH REAR PSS 


L-O4MAY7RAW 


SCAN PROBE 1 2 3 4 5 
POSIT 
' @.00 -1.070F-@5 -1.120E-05 1.2S9E-@3 -7.314E-@4 9.6G60E-04 
2 -10 -4.170€-OS -1.@68€-05 1.25SE-03 -7.294E-04 §.697E-04 
3 +20 -8.40@E-OG -8. 5005-06 $.25@t-O3 -7.26CE-04 93.576E-04 
4 -30 -9.B@QE-86 -9.4MRE-O6 1.257€-@3 -7. 338E-O4 9. 726E-@4 
5 ~40 -$.3406-OS -1.22HE-95 T.27S1E-@3 -7.Z280E-04 93. 790E.- OA 
6 -50 -1.300E-@5 -1. 3G0E -05 1.250E-@3 = -7. 335€-O4 9. B38E -O4 
7 -60 -1.1G@E-@5 -1.30@E- 05 1.2SSE-@3 -7.784E-04 9.927E- 04 
8 ~7@ -1. 32Q0E-OS -1.570E-O5 1.75@0€-@3 -7. 58GE-04 9.982E-O4 
9 -8G -4.277QE-@5 -1.240E-O5 1.2SRE-93 -7. 3SME-@4 9.91RE- 04 
10 -90 -1.160€-@5 -1.18@£-O5 {.7S7E-O3 ~7.372E-04 9.962E -@4 
i few 1, 18QF-OS -1. 160C-O5 1.254E-%3 -7.322E- 04 9. 9GQi-94 
12 1.10 -3.4@@£-@6 -4. COE -O6 1.27586-@3 -7.354E-04 1. O@1E-O3 
13 1.20 -t.24@E-O@% -1. 1206-05 1.2SB8£-@3 -7.392E-04 1. @1GE-@3 
14 1.30 -1.@00E-@5 -1.080E-@5 1.26@E-@3 -7.314E-04 §. 9176-03 
15 1.40 -9.6QQE-O6 -1.080F-O5 V.269E-O3 -7.342E-04 1.@18E-@3 
1G 1.50 -7.4@0£-06 -5.8OOC-O6 1.25GE-@3 -7. 3278E-04 1. Q@IKE-@3 
17 1.60 -9.72@0€-@6 -9.8QOF- 06 .267€-@3 -7.3G4E-94 1. @34E- 3 
18 1.70 -8.AQVE-06 -7. 0006 -C5 $.2HIE-@3 -7. 310E-O4 1. @327E-O3 
19 1.80 -3.20@£-06 -1.40@€- OF T.264E-@3 -7.370F.-@4 1.@29F-@3 
20 1.90 -5.GE@E-O6 -S.9O0E-O6 §.253E-@3 ~7. 360E-04 1.033E -03 
ra) 2.00 -7.Q@@0F-O6 -2.Q00E-07 1.262F-@3 -7.350E-04 1. O37£-@3 
22 2.10 -1.Q0@VE-@S -1.@70£-0S V.263£-03 -7. 3686-04 1.@30E-O3 
23 2.20 -1.34@€-@5 -1.200F-O5 V.275SF-@3 -7.330%. 04 1.87 36-03 
74 2.30 -1.020€-35 -1.@4@E-O5 1.25B8E-@3 -7, 314E-@4 1. O26€-@3 
2S 2.40 -1.280E-O5 -1.120F-05 1.257E-@3  -7.337F-@4 1.477€-@3 
26 7.50 -1.17ME-O@5 - 1. 78QE-O5 $.75S€-23  -7. 3528-04 V.O21E -O3 
27 T.8@ -}.12OF-@5 -1.270b-05 1.255€-@3 -7.41Z7E-04 1. QZ5F.-O3 
78 2.70 -1.4Q0£-O@5 -t.GO0E-65 1.%S4E-03 -7. 390E-04 1.032E-@3 
29 Z.80 -1.Q00@E-@5 -1.17@E-O5 1.2S8E-@3 -8.@37F- 04 1. @358-@3 
30 2.390 -1.32AC-OS -1. 3270E-05 1,254E-@3 -8.Q76E-O4 1.@25E-@3 
jt 3.00 -1.170€-O5 -1.200F-O4 1.25th-@3 -B.Q3EF-04 1. @34€ -03 
SRESHHPHETSPASHTHESSHERTASSSHOSCHE SE SEDO SEDE TREKS RHEPO RES ESHRSRE SAE SHRER DP ROTERETE SD 
SCAN 6& ? a 93 10 ie 
1 -8.372€-04 ~8.462E-O4 -7.7346-04 -3.SRAE-O4 V.QO77E-@3 -7.2@4€-O4 
2 -8.386f.-04 -B8.3966-04 -7.7208-O4 -9.624E-O4 1.O79E-93 -7. 17BE-04 
3 -B.IG5E-04 -8. 3458-04 -7.732E-04 -9.B44E-O4 1.079E-03 -7. IRGE-O4 
4 -8.346F-@4 ~-B8.357F-94 -7.604E-@4 -9.677F-@4 1.O76E-@3 -7.718E-@4 
S -8.J3J6G0E-@4 -8.380E-04 ~-7.638E-@4 -9.676€-04 1.Q@68E-@3 -7. 1AZE-O4 
6 -8.386E-04 -98.384F-O4 -7.65fE-04 -9.874E-04 1.Q@78E-O3 -7.230E-04 
7 -B.38GE-@4 -8.368E-04 -7.536E-04 -9.7AGE-O4 1.074€-@3 -7. 7526-04 
B -8.378F-A4 -8.38RE-A4 -7.BIOE-O4 -9.7HZ7E-04 1.@75E-O3 -7.2740F-04 
3 -8.390E-04 -8.385E-@4 -7.AA4E-O4 -9.738E-O4 1.@73€-@3 -7.268E-O4 
YO -B.A4@LE-@4 -B.374E-O4 -7.847E-O4 -9.744E-04 1.Q76E-A3 -7.238E-04 
11) -8.364E-O4 -8.35@E-@4 -7.G54E-O4 -9,.7IDE-O4 1.Q@71E-83 -7.2O1E-04 
12 -8.372F-@14 -8.348E-04 -7.676F-04 -9.6OHE -04 1.Q75F-O3 -7.730F-O4 
130 -8.4Q@5E-@4 -B8.AQ@ZE-O4 ~7,.772E-O4 -3. 7000-04 1.@81E-O3 -7. 7726-04 
14 -8.338F-@4 -8.3°9— 94 -?.690°-@4 -S.EI7F-@4 1.QB7E-@3 -7.2746F-04 
1S -B,374E-04 -B.587E-@4 -7.755€-04 -3.BINE-O4 1.@88E-@3 -7. 2876-04 
16 -8.35RF-O4 -8.374E-O4 -7.75UF-04 -9.65EF-OA 1.@84E-@3 -~7.264E-O4 
17) -B.397E-@4 -8. 3706-04 -7.74KE-O4 -9.E72E-04 1.084€-83 -7.226F-24 
48 -@.3376-O4 -B.374€-O4 -7.71BE-@4 -9. 5505-04 1.@891.-O03 -7. 7786-04 
19° -B.4S2E-04 -@.356E-@4 -7.73R€-@4 -9.GIGE-o4 1.@/79€-@3 -7. 188E-24 
ZO -8.344E-OA -B.334E-O4 -7. 7381 O4 -9.49BF-O4 1.@89£-@3 -7,.38BF-04 
21) -B8.576E-@4 -8.554€-04 -7.594E-04 -9.617E-04 1.082E-@3 -7.237E-04 
22-8. 344E-@4 -8.340€-04 -7.65GE-O4 -9.614E -94 1.O78F-@3 -7.212E- 94 
230-8. 5OKE-@4 -B.785E-O4 -7.678E-04 -9. HOKE -O4 1.977E-O3 -7.220F-04 
24 -B.300-@4 -8.28BE-04 -7,5h0-44 -9. 6748-04 1.Q79F-@3 -7.197E-@4 
75 -B.SN7E-@A  -B.29HE-O4 -7.557E-%4 9.G720-34 1.075E-O3 -7, 7246-04 
76 -9.°97F-OA -9.2670-O4 -7,4B7E-O4 -9.697F-04 1.Q075F-3 -7,19Z7E-@4 
27) -B.592E-OA -8.34BE-04 -7.SIDE-O4 -9. 7SHE- 04 1.@8@E-23 -7.74RE-84 
86 


28 -8.796f -84 


29-8. 754F-@4 
30-8. 28bE- 94 
3t -B. 340E-04 


-8.276¢-04 -7.446F-@4 -9.71ZE-O4 1.Q7SE-O3 -7.19@F-04 
~8.30CE-O4 -7.430E 04 -9.787F-04 $.Q@77E-O3 -7.246-04 
-B.268€-O4 -7.485E-@4 -9.7S4E-O4 t.O7R8E-O3 -7,.22RE-04 
-8.2906-@4 -7.460F-04 -9.7/65 -04 1.073&-93 -7.1S7E-04 
PORCH HPO VESESESTEPEP SEO SSO SODSDESREEPERASSDEDEU SSP OES PEP EEOOR ETS DORVETESS DORR AED 
SCAN 12 13 14 YAUCHAN TEA CHON ATHOS 
VOLTAGE VAL TAGE PRESSURE 

Vo -1.BOME-O5 -B.O00E-O6 = -1.040C-05 4. 8STE- 02 1.2Z4€-@3 406.63 

2 -4.8002-O0G6 -9.2@0F-O6 -1.Z26OF-O5 4. 8S51E-07 1.231E-@3 406.63 

3 -4.400E-G6 -9.4Q23E-A6 -1.0595-@5 4.B45EF-O2 1.247€-@3 406.63 

4 -S.8Q0E-@65 -1).1B@EL-O4 -1.Z28@F-O5 4 BSOE-O7 1.256F-03 496.63 

S -7.@20E-@6 -1.760E-O05 -1.5ME-O5 4. 8418-02 1.2S57E-@3 496.63 

B ~S.800-O@6 -8.400F-O26 -1.1008-O4 4.836F-97 1.251E-@3 4Of.63 

7 -G.4COE-CB -1.2Q0E-O5 - 1. AZDE-OF 4. BIBE -22 1.250E-%3 306.63 

8 -7.QCHE-AG -1.38%: OS -1.4605-25 4.83B8F-O2 1.7S76-@3 406.63 

9 -B.AQCE-OH -1,I8ZE-O5 -1.6F0@6-@5 4.857€-82 1.2SAE-03 196.63 

1% -B.B2L-OG -4.2408-OG -1.340E-O5 4.B83/F O72 1.27S99§-@3 406.63 

11 -B.20GE-4G -1.QRQE-85S -1. 149E:- 35 4. BASE -O7 1.264£-@3 406.63 

12) -B.4@0k-@6 -1T.1BME-O5 -1.340F 0S 4.857£-7 1.276E-@3 406.63 

13 -1,QAQE US -1.970F-45  - 1.3270: OS 4. A53E- 02 1.275€-@3 4@6.63 

$4 -3.4@0F-O@B  -1.O8OE-O5 -1. 2006-8 4.847 -O2 1.275€-®3 406.63 

1S -1.49Q00C-O6 -B.GUOE-26 -3.1E0E- AS 4.847E-@2 1.276€-O3 435.63 

16 -2.Q00.- Gh -F.@P0F-O6 -1.16@E- OS 4.8456 - 02 !.781E-@3 406.63 

17 -3.BOOF-O5 -B.7Q0E-OG  -1.0A9E-O5 4. BSCE- OZ 1.283E-93 436.63 

VQ -B8. 90-07 -S.2Q08- OG -7. C€OE- OH 4.849F 02 1.2788F-@3 406.63 

19° -B.COQE-O5 -F.MQE-O5 -1.740£-@5 4.834£-07 1.307E-@3 405.63 
20 1. QQAE - OS 4.000 97?  -8.OC0E-O7 4.835F-02 1.799&-@3 406.63 
21) -G.BY9E-O6G -1.26GE-95 -1.3EQE-85 | 4. 835E-82 1.297€-@3 406.62 
2? -7.@QOE-O8 -1.300E-O5 -1.G00F-O5 4.838F - 02 1.797E-@3 406.63 
230 -7.AQOE-26 - 1. 3BOE-A5  - 1. 380E-85 4.BS7E-O2 V.311E-@3 406.53 
24 -7.BOVE-OH -1.7000-O5 -1.5408-9 4. 836-27 1. 31SE-@3 AQH.B3 
25) -8.200€-O6 -1.279@E-@5 ~1. 3406-05 4. B834E-22 1.319€-03 4106.63 
ZH. OOL- OU - 1. 70UQT-@E - 1. 42ME OS 4. 8346-07 1.3274E-@3 406.65 

27) -9.200°-@H -S.4GMEF-O5 -1.799C-@S 4.8 36E- 2 1. 3318-93 406.63 
28 -8.8M0L- Ofi -1.440%-O5 ~1. 4008-05 4.8351 - 02 1.379F-93 406.63 

29) -S.Z2CME-CB - 1. JOWE- OS - 1. 450€- 05 4. B31E-@2 1.352€-@3 4065.63 

3Q -S. 400 - OB -1.249F-O@5 -1.470F -O5 4.824E-%2 1.35Ht-@3 AQG.F3 

31 -B.GOOE- OF = -1.3650E-85 - 1. SHYE- MS 4. R27E-O2 1.533€-@3 406.63 


|OCTCHOLPAFAFC HRT TKK T EE FSEHHSHKTTSEHOTA HST STE SHS SHER ES SHSSHSRSRERESeSSEEERHeAaTeew Rete 
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TABLE B7 


EXAMPLE SCALED DATA FILE PRINTOUT 


SVFSPSPSHHUPRSST RS SSHRSSRPFSEHSOSTS HESS PREC E SR RSRIE 


PROBE SCALED DATA FILE L-@anaT?7sct 
PRERESCHRER ASO PHRSSSHSSKSELEP ARH SeEEOSS HS eesesesere 
SCAN PROOF 1 2 3 4 5 
POSIT c 

' 0.03 -1.070F-O1 -1. Q00E-92 1.269640) 9-7. 79ZE400 9. TERE 1GS 

2 10-1. 12@€-1 6. OIE -O3 P.26GEI@ — - 7. 1BZEFO® 9. BA4E 100 

3 .20 -B.AQ@E-O2 —- -2. OROE-O3 1.7SAE1@! = -7. 192E 4100 RL ISZEIOA 

4 30  -9. BORE - 07 4. 2006 - O3 1.2G2E1Q1 —-- 7. 249E 100 9.8240 100 

5 140 9-1. 34%.-O1 1. 200F 07 1.2G4E4@1 «= - 7. 1S4F 4108 9.924642 

6 159 --$. 380E-@1 2. AVE -O3 1.272EtOl «=~ 7. $9BE 100 9.9 76E 100 

7 .60 -1.160E-@1 9-1. 400E -07 V.266F4@1 «— -7. IBBE LD 1. QOAE +9} 

8 70 = -1. 320E-@1 @. CIE +2 1.2B4E1O1 «7. 2146420 1. QVIE HOT 

9 80-1. 22@E-O1 2. 900k -03 V.270E4@1  -7.278E400 1. QO4E 101 


10 90 -1. 1GOE-O1 2. CAE -O3 1. Z768E Ot ~7. ZOKE 2D 1. QOUE +01 


" 1.00 -).1B@E-O! 72.000F-0% 1.76GE1@1 -7.7046100 = 1. MBL 01 
12 1.10 -3.4QVE-@2  -B.QODE-@3 EL ZHLEHOL «=~ 7. 3ZOL 4D UAE NOI 
13 1.2@  -1.240F-01 1.200-O2 A. ZTIEN@E «= --7.2BHEA@E =. @Z7E11 
14 1.30 -1.@00E-O1 -B8.000E-03 I. Z7BENON «7. 7214E HOD =. @ZSE VOI 
15 1.40 -9.GQCE-02 = 1.2@0E-@7 —sN.ZTIEW@I «—--7.24GE4@@ =. OZ TEHO1 
16 1.50 -7.4@0E-02 6.O00E 03 —-..7B4Et@1 «7. 254E12D == OZKE HOI 
17 1.6% -9.2Q0E-O7 -G.Q0OE-23 ss N.2TIEN@ «= -- 7. 2776400 =. @ABEAOI 
18 1.70 -8.4C0E-@2 —F.AQWE-@2 1. 7KGEF@I «= --7.226E 10D 1. BIE OI 
19 1.80 -1.7Q8E-02 --2.000F 3 1. 263F 101-7. 3@HE1QY =. @AMEBI 
20 1.90 -S.GOVE-02 -2.00@E-23 1. 259U1O1 =~ 7. 3OAEFE® =, B39L 101 
2! 2.00 -2.002E-22 1. BODE-OZ —s-. ZB4EID «= -- 7. 330E1MA =: @39E 1 
22 2.10 -1.@Q0E 01 -72.000E-@3 =. 773F4O1 —--7.70HE 1091. ONE HOH 
23 2.20  -¥.34@E-@) V.400E-072 «1. 2HBEI@! «= -7.19GE1OD = 1. @37EAOL 
24 2.30 -1.02@E-O1 2. @BBE-O3 =P. ZHIEIO! «—--7.Z1ZEVOS = «OBE HOH 
2S 2.40 -1. 2906-01 1.E0@E-O7 — P.2USEHOL «== 7.7O4EHAD = 1. @ISEIO! 
26 252 -4.120E-@1 = -8.@20E 93 1. 2H VEDI «= 7. 20M 109 = 4 BATE NOI 
27 2.50 -1.12VE-OF = 1, OAVE-O2 ss N2EGF HO) 7. S2QEN®_— 1 WITEVOI 
28 2.70 -1.400%-21 —-~2.0G@E-02 1. 2GBEIQ) =~ 7. Z50F #0 = 1. OEE NOL ; 
29 2.20 -1.@BQE-O1 = 4. 200E-03 1. 258LIO «= 7.I72ME HOD 1. BASE HOH 
3a 2.90  -1.32706-@f —«@. OOAEAGD «—ALZB/EI@I «= -7.B4AEIGS «= OSBENON 
3 3.00 -S.170E-Ol <8. O8CE-O3 1. 7U9E FOL «= 7. BBE HOD — FASE HOF 


SUCRTOTE CAT TE STP R TEKH RTAT PRE SH CHAE H TOR ERT TESTA HCO TAPLAETOE DOR TOCREL RUS DEBE SES 
SCAN 6 7 8 4 1® \ 
f -A.27Ob1CO -B.75ZEIMO ~-7.G63ZE'00 -9. 406 100 V.Q@B7EIOt -7.1OZ2E IO 
2 -B.274E +20) -B.234E+@O = ~7.COUT HOM -9.A9ZE 120 1.Q90F 401 -7. OHEE +O 
3 -B8.2A7E100 -8.267F4OD ~7.640E190 -F9.SKGE 1D 1.@376401 -7.187£ 100 
4 -8. 249610 -8.754E+2@ ~7.SBKEIOO -9.S74E10@ 1.@85E4O1 -7.120E 400 
GS -8.2266409 -8.746E+@0O -7.SAAEt@S -9.5426102 V.Q@BIE1@! -7.@ABE 408 
6 -&.274RE +O -8.246L 100 ~7.StBEICD -9.695£ 100 T.OSZEtOI = -7. VERDE FO 
7 -B8.77@ 10% -8.257E400 ~7.570E100 -9.624F 100 E.@3SE1Ot -7. 1361 tHe 
8 -U.7AGE10O -8.236T 100 ~7.478E HOD - 9. BSUE FOOD 1.Q8GE+O! -7. 138E +e0 
9 -8.2G9£109 -8.264£100 ~7.562F1@3 -9.616b100 1.Q@BSEtGS -7. 346 1S 
1 -8.2900 OO -A.250E400 ~7.575E+8® -39.678C CO 1.OBUC tO) = -7.177E100 
11 -B8.246E41@2 -8.237E100 -7.516E1G0 -9.S9/EI 1.0d301@1 -7. 0661 1@2 
12) -8.338€900 -8.314E100 ~7.6427E4100 -9.6340100 V.O/BE4Ot = -7. 19LE tM 
13) -8.202610G -O.278£100 ~7.59NF IOP -9.5760 1G V.@936401 -7. 14BE1OA 
14 -B.238£100 -8.244E50O0 ~).SSMEHO® -9.SIZE +20 1.097E401 -7. 145E1@0 
tS -8.279L10@ -B.2869 12 ~7.670E1A0 -9.5727E£400 1.037E481 = -7. 1861 100 
1h -8.284€10O -B8.300£400 -7.6840820 -9. 5620100 f.O9IESl -7.190E +00 
17 -B. 3002100 -B.2786 100 ~7.6DAE1OR = -9.57 0b 18 1.@393610f -7.134£10C 
18 -~B.219T 10 -B8.24@£100 -7.6346100 -9. 486 100 1.@98£ 101 -7. 1946100 
19-9, 34QlI1GA =—-B. JAAEHB =-~7.7766190 9 -9.604E 100 1. OB@F IOI -7. EVEL 140 ¥ 
20-8. 2896100 -9.27GF100 ~7.60OF 100 -9.447F 490 1.994E+Q@1 -7. 3526100 
210 -8.356F 100 -8.354E100 -7.B74E100 -9.592F 400 L.@B4E1M1 -7 FNPF SOK) 
77 MZ ae Be eek OO ~ PLS HOD - ALSIP by $.50GE9O) -7L1ILE OO 
230 -B.172F IGG -B.157610% -7,434E1BD -A.ATZTEIDO V.OS@F+Ol -7. 0b 100 
724 -O.198E10D -B.IGEEICO -7.459E CR = -9.S77E +00 1.909E531 -7. 0998 130 
75) -U.TBAEIAA -B.1GRLIGD -7.AG4EID) -9.547F 1D 1.Q0At1@! -7.059GE 400 
26 -B.100E 10M -B.1/HE100 - 7.570619 -9.59@E 100 V.QGRE+O1 = - 7. 088T 160 
27 -B.220E1AS = -B.Z2jKE1K) ~7.598L 1O@ -9.G4GE 128 1.099E90) -7.134L 162 
20 -B.9S6E ISO -B.1SHEIM - 7. S@LE1OA = -9.577E 108 F.O89E#D1 = - 7.8520 100 
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259) -8.1BGLIOG -B.19ZE1OD = -7.372F 100 = -9.67/4E 102 1.081.401 

3B -B.YSAEFDD -B. 1458 1G -7.3SKEIND -9.B27E +20 1. O91E 104 

SY -8.22864M@ -B.I7EE1OS -7.3L4E40E = -9. 6645190 1. Q0B4E101 

BUPFTPSS HE RSSHKRSHSSRORLKESSAESFSTCSRECEP EHP SSCREPHeFeR ESKER EFeRAeneeer 
SCAN 12 13 14 YAW TEMP 
‘ DEG {R) 

' 8. WWE - 07 2.22ME-02 -2.0048 - 03 4. USTEIO} S$. 3576992 

2 6.423. - 2 Z2.O00DF-OZ -1.4001.- 82 4. BSTE+Ot 5. EWE 442 

3 4.COWE-O2  - tb. Uren - 02-2. 2AE- 02 4.8497 +O! S. SUSE +02 

4 4.@O0E-O2 -1.8O03F G2 -3. 000k - 02 4.850640) S. 30Gt +82 

s 6. AME: 07 @.COZE 03 - 1. 600-02 4. GAIE +01 S. SKIE #82 

6 8. QOCE - 47 S.4QAL- 87 2. BCOt - GZ 4.83 101 S.3G6/0402 

7 G.Z200E-O2 -4.C€0E-03 -2. 6000-02 4.B38£ +01 5S. SBE 192 

a B.Z00F-G2  -4.900£-@3 -1.4@0E- 02 4.8380 401 5. 360F +@2 

9 Z.HEODE-O2 > 1. GAYE-O2  -A. ADVE - 87 4. 857E 101 S. SG8F +92 

1G 4, 8QUL- OZ -- H.OBOE-O3  - 1. BOCL- OZ 4.8576 401 S. JB9E A EZ 

1 3. EME - B2 1. 2QE -O2 4. GS0E- 03 4.B85GE +01 S. STE HG? 

12) -3.@@@L- Or -B.4@QE-O2  -1.0007-M! 4.B57F 40} 5. 375E 497 

13 1. SOC -O2 1.2W0E-92 -8.G8vE-03 4. B53E 181 S. SIGE +07 

14 6.6@0F.-@2 -6.@ACE-@3 -2.000E- G? 4.847610) 5. 375E +02 

1S 8.72VE- 02 3.OOME-2Z  - §. ADDE - OZ ABA FESO S. 5/5102 

16 4.42% - G7 -1. 6808-02 -4.2022 97 4.9457 101 S.377b 4107 

7 5. 406 - 82 F.O2VE-O2 -AR.9OPT-O3 4. USOE HOt S.37NC 102 

1g 7. GMOL- 22 3.2OCE-@2 t.4@ot- @? 4.849191 S.379b4C7 

19 -A,CRVE-B2 -9.40QL-O2 -1.127@L-O! 4.8346 +O} S. S84E 402 

70 = &. OMe - 97 6. @B2t - 2 4. 82E- @7 4. ASIF Ot S. 303F +07 

21-4. BSME-O2 -1.O6ME-O1 - 1. 1KQE- OF 4.8550 181 5. 382E 182 

22 3. Q00F.-@7 -3.OCCE-O7 -B. O22 - 07 4.850701 S.382ZF 462 

23 6.000C-O2 -4.060. O53 -4.800- 03 4.8375 101 S.3B7E4@2 

74 Z.AQWE-O@2  - 1. B2CE-O2 -S.220E- 02 A. B46E 105 5. $39€ 102 

25 A. BQ2QE- 02 O.CB2EIOY - 6. OFAE-O3 4.8354L191 5. IIME 147 

76 S.AOOE-O2  ~1.GOWE-92 - 3. LUNE - 02 4.924 at S$. 3S1E +02 

27 2.708 AP -F.AMLE-O2  -B. GA - a7 4.831 It S$. 3SAE 107 

70 5.2006 -A2  -- 4. GOVE-O3  - GB. UNCE- 93 4.835T tO) 5. 39 IE $02 

. 7g S.BAHE-B2 ~%2.7008-O2 -3. BAR Oz A.BIIE1O1 S. 39AE $92 

3® 7. UERE - 47 B.COBE-O3 -$. CHOE-B7 4. 874€ 403 S. SIGE +02 

3 A. EMOE-A7 -2.400E-O2 -4. 499i - 07 4.8772E+91 S, IGG 482 


TABLE B7 (CONTINUED) 


-7. 1 38E (2d 
~T. B94E BQ 
~7. OHO 400 
Seeseevsasas 
ATHOS 
PRESS 
AGK.63 
426. 
406. 
426. 
406. 
4. 
At&. 
46. 
406. 
4@h. 
Ath. 
ATL. 
40u. 
405. 
ACG. 
406. 
4Au. 
4Oc. 
4@b. 
40S. 
AOE. 
406. 
4. 
4U6. 
4e0. 
4eG. 
ACH. 
426. 
ADE. 
Avs. 


4065.63 


SEVP SAE TECH ROT HES ATOMHPTFSSHSHRER PESTS SH SST TCR PP RHETHTSPEREST HC SHSUSPEPeeTe Kener HE 
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TABLE B8 


REFERENCE BLADE REDUCED DATA FILE PRINTOUT--UPSTREAM 


DOOPIVUT HED HOKE TP ORD OOP ESDERKSE SEDO DED EOEE 
FILE L-@4NAYTCALC 


PCH TEARES ES TT OTEK ERESERE RE DEPPREREEHES ES 


DEPFSSHST OPES REHEARSE THSHSKRE FIP SSHST PSST RETE RHC ETEK EST TOSETES REPRE RESTER eee Tee eee 


SCAN FRE BETA GAMA PRY Xvel Xref 
posit 
t %.09 4. 331E-O2 1. O7RE- OF ~7.571E-O3 1. F@SF-OF 9. ISTE -O2 
rd 1@ 4. 3420-82 1.Q47E-@1 B.104E-83 VT. 1@4E-OF 9. 340F- OF 
3 2% 4. 351E-@2 1.Q@69E Ot -S.131E-O3 1.1036 @! 9. 311-82 
4 3” 4, IGE - 02 1.0726 -O) ~9.775E-O3 1. 1246-01 9.3750 -O7 
5 49 4. 3GZE-G2 1.177€-@1 -1.250t- @2 1. 1@6L -@} 9. 332F - 7 
6 SO 4. 374E-@7 1.1800 1 ~ 1.67 3E- 02 1. 1O7E-O1 9. 3598-2 
7 680 4.397E-@2 1. IS@E OI - 1, 398E- 67 1. 91@L OF 9.34% 2 
8 718 4. SHGE - @7 1. 189E-O1 - 1. BILE - 02 $. 1A@9E-O1 9. SIDE - 02 
n 8% 4.34 3E-@2 PL12ZE-O) ~V. 7445-82 1. 11@E-@1 9.354E & 
19 3 4. A4D4E-@2 1. 445E-31 -¥.3720- 92 1.912€-O1 9. JANE - OF 
Wy 1.00 4. 396E- 2 1. 1436-41 -¥, 3ODi -O2 VLVtte-@1 3. 33RF - 02 
12 1.10 ALAQE- 2 1. OP4C OF 1. OIIE- 07 1.993E-OF 9. 37 45F -O7 
13 1.20 4.439E 07 1.0670 O1 -9.4476-@) 1.tt7— Ot 9. 30Gb, Ae 
ta 1.36 4.4316 - 87 1. O41F - Ot -TYBE - 63 1. V1bE- OF 3. WAL -O7 
" 1.40 4. 4400-97 3. 9HZE -O¢ “GLGAAE- AS 1.199L-01 9. IU 2 
16 1.50 AAASE- AZ t.dt4c- Ot 6.394683 1. 2198-1 9. VIDE -O7 
7 1.6¢ 4.48AL 02 T.OCIE OF -§. GU7E- @3 t.1Z4E-Ot GV. 350 Me 
18 1.70 4.472E -O2 9.87 36-4? -4.BS3E-O3 PL 92SE-O1 9. 2516-07 
14 4.8¢ 4.472E-%2 1.Q097E -@1 ~G.QI1E-O3 1. 62Z2k- OF 9.377£-@7 
20 1.90 A.477E-97 9.43/E- 82 -2.5S1E- O83 TL1Z74E-@1 9.3127€-67 
21 2.06 4. A97E- 07 1.@24E-O1 -G.9@3E-@3 1.125" -@1 9.331E @/ 
22 2.10 4.4 1OE- O2 1. QS0E-Ot ~B.377E -O3 VIZ1E-O1 9. 305F @7 
23 7 20 4.444E O2 1,007F @1 ~9.37b- OF 1.118E -O1 9.348E WF 
24 7.58 4. 4496-02 T.VSTE- OS ~1.334E-@2 VIIVE- OI 9. RABE -@2 
25 2.47 A.AMAZE-O7 1.1S4b- Ot -V.41BI - 82 T.TIEL Ot §.Z44E Bd 
2 2.52 A.AISTE- O72 V.99SF OI -1.B4VE-A2 1.99or-@ 9.3430 &2 
27 2.62 A. AG@E- M7 1. 2@8L-@1 -V.719€- 7 1. 49HE OI 9. 9AM -O? 
26 2.70 4. ALGE - 02 V.298E- 2 ~V. ¢7HE-@2 1.198C-@! 9.4970 -@7 
7 2.8 ALATME -O2 1. ZR7E- O41 -2.015L- 02 1. V19E-@! 9.3486 a7 
Ns) 2.90 A, AAIE-B2 V.221€ A ~ 1. AGE - 2 T.VTRE-@1 9. A7E- 02 
a 3.0 4.A72t 07 1.739F @I -1,885R 92 1. 999E- @1 9. 351E- OF 


PHHTIFH PP SHS EHF CREKAAF ER HPRESRET SSHFPFKO RE OTIPEH SESE PH ESOP TO TKR SEPE RASHES OST HTD 


SCAN Vel Vref Q O ef MACH YAU 
1G 
' 72. 79AE 1A? 2. 357C HOE 1. 72@E1O1 1.2?55c +O) 2.AN0E OF 4A USEE TOT 
Zz Z. HOM 1G2 Z. 3706 487 t.72ab al P.253F4at 2.4950 Ot 4.9500 181 
A 2. ACA 1A? 7. SGAE NH? 1. 799F 601 t.74' tO 2. AD1E-O1 4.056 101 
4 2. BASES 2. SUL 1GZ V. 7276 tat 1. 248E 101 2.483F O1 4. A5ub 18) 
5 2. BOTE 187 Z.57HE 192 1. 724E 99! V. 2506901 2.40 - 31 APG HOT 
6 Z.AITE Ae 2. 377E4102 1.7528 191 1.7S5B8E Ie} 2.45HE Ot 4. G41 I@l 
7 2. HIKE £02 2.5726 1Q2 1. 74IC 10) P.2" AE OT 2.497C-O1 GHAI IGT 
8 2. BILLIE? 2.5706 102 1.737E Ot 1.2506 181 2.4946 -O1 4.045 101 
8 2. BOCE 187 2. S/HE 402 1.7430 9O) 1.75bE +O 2.A9RE-O1 4. BacE ot 
1@ 2. B7 36 142 2.43/48 407 1.74 /E 401 V.2S5F Fay 2.SQ01E-O1 AVAIL IOI 
I 2. N71E 182 2. 372E1@2 1.7446 1@1 V.757C481 2.49900! 4. BATE 1a) 
Vw 2. 82UF 107 2. SENT 102 1.7510 tot 1.2449 101 2.5040: 91 4. ASTL Gl 
13 2. IIT 1? 2. 370C 182 1. 761E +01 V.25/7E 90} 2.S)4E-@! AL NSBE IOI 
14 Z-B3/E +e2 2. VIE IO? 1. 7HZE IGT 1.2561 101 2.5127€-@1 4.8576 1O1 
15 2. BASE IO? 7.4795 902 VT. 777k NO 1.2570 501 2.5196 -O1 4.9570 101 
{6 Z.RA SIOZ 2. 3/18 1E2 V.7EUL IOI V.28@F 401 2.51 /t- OF ABLE TAY 
17 2. 959F 102 7. S79 482 $. Fett 1. 2S7E9Ot 2.570€-@1 4. AGE AT 
18 7 .BOAT Ie? 2.37 7E 18? 1. 787E1@1 V.gS5F 491 2.676 OF 4. MAT Al 
9 ZANE AZ 2.577¢ 102 1.71 FO 1.2440 Ot Z.6258 Ot 4. B31 Ot 
ra 7.858 107 2. FOE NBL 1. 7Hot 1d 1.7456 #St 7.S57HF- @! 4.8380 Ot 
7) 2.0508 107 2. 5736407 t. 7050 1at 1. ¢SOL5O1 7.551E-O8 AGATE OS 
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TABLE B8 (CONTINUED) 


22 Z.BS7E IO? 2. 38VF 102 1.779401 1.75: +t 2.S24E-O} 4.B45E tA 
74 2.844647 2. 3/0F (ME f.767E1O1 §. 255840 7.St5SF Ol 4.B4ZE 101 
za 7. UAE 12 2. STF O27 1. 7665 +01 V.2S beset Z.S15E-@1 4. B41 IGT 
25 2.8416 402 2.3/5F 107 VP. 76304 1.251 tet Z.S1ZE-@1 4. B4YE IO: 
£6 2. BSE 122 2. 37AE OZ TL. 7570 +91 PH. 2538 1@1 2.S0NE- @! 4.8459 t@1 
7? 2.846 1Q7 2. 37BF 482 1. 76RF 121 1.252E1@) 7. S1G6F-O! 4.B41E 10% 
<8 2. NAGE 102 7. 379E 12 1. 76pf Od 1.2754€ +01 Z.51K0 -O1 4. BADE 101 
29 2. RABE +7 2. 3BGE 107 V.27OE HI 1.7550 1e@8 2.517E Ol 4. 836b +01 
3® 2.QAVE $07 7. 379T 102 VL 75HC ay 4.27527 901 7.9187 -O1 4.U29F 10) 
31 2. BANE HAL 2. 3B1E 107 1. 7?7b 40) 1.7590 +@i 2.S1BE-9! 4.827E10% 


PORTS RET DERE T DOES ERED TEP ERO ET EO RESET REE PUO SEE TEE ERENOC RUSTE TOR PETERS DEERE RODS 


SCAN Pref PUsQe ef U Ire 

1 2.3290-M1 1. 4QNE 100 P.U7ve12@ 
z 2.283 -O1 T.OI@riga Pl17be 1a 
3 2.27676 -@} 1. GO9C 10 {.179fF 1a9 
4 Z2.241k -@1 1.@1@€61eD in ard co) 
5 2.974F Ot 1. 0:30 100 1. 17Gb 100 
6 2.3796-@1 1.01% +03 VV TEE 4ac% 
q Z7.097F @1 VP. OIE 10D 1. TUTE Fae 
8B Z2.097b @) 1. Q1@t +e TL. tBIE 12 
9] Z.919E @1 PT. O10" 138 1. 1SOE 120 
19 2.0% /E- Ot PT. AIOE 1@e 1.192406 
ty 2.9990 OF 1. OIE +20 Life sreee 
12 7.964% @1 1. Q1@fF +@ 1. (B/E OS 
13 1i97BE- AI V.G106 120 1.1026 ae 
14 Y. 9G. O1 1.O1at tee FL 18 7b 190 
1S 1.9496 -Ot 1. QI OF 180 1. NAL OO 
16 1.920 @! T.OIML 1Ae@ T.197E Hee 
17 1.814c-@1 1.Q1AE 12 VL Idk rae 
3] 1.87th- Ot 1. O10 109 1. VSAE AAs 
9 VW YE - 3) bE. O1AF 1ae@ Lin ed 
72 Vibe. My 1. Oat 1 ae V. POE HOO 
2) T.UA2E - @} 1. MIO 1H 1. 191E SAA 
22 1.BS2E @t 1, Q40r 10% L.NDIE IOS 
23 1.04nE @ 1. ODE 120 1. 1850120) 
24 1.8547 -@) 1. Q1@E Ie PL 1B9F am 
<0 1. A39C -O1 1. OIE 100 1. 19UE FAG 
76 1.ac7t -Ot 1. @tor soe LLIB (EOS 
i? 1.8376 3 1. BIC 190 VLVGIT 80@ 
rs 1.2756 -@t EL @IAe toe tL 19OE 1a 
29 1.7798 Ot L.Btoar ze 1.191f tam 
3e 1.823 @! 1. OIGE HE 1. 1BAaL ae 
3 1.799 -@1 1. B19E 100 1.9916 400 


PSOSHT EPP HOE RS OPP OORT AS SPE TEP DEPESHU SSE EOP TEPHF CPPS KS ESOP ROR ESEREHESOS Ere ERTE 


PNSENULE AVERAGES 


PAYG PAAVG FEAPANG XFLI AVG VREFAYG ORL FE AVG 
V.7B IFO ADR Sh FOO 537.82 9. 347E -O2 2.3 oT 102 V.7SSEMO 
MUREF TEMP SINTAVS 


1.72At OS 9. 3S31T 40? 
RIEYROLOS NO 
T.THVIE TOS 


OPOPRe PATH Ase THLE ASHHRHT TE EHTE TSE RETO KRTeT ESHA PHAR TCHR O RP REeeE 
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TABLE 


REFERENCE BLADE REDUCED DATA 


FILE U-@1JUNCALC 


B9 


FILE PRINTOUT--DOWNSTREAM 





SORSSCHSFRSTSSHSHSHSSTHSSSHSTSSESHHSSHEHRFFAOHSHSHFHSSESSOHSSHHSHRTeFaesHsseesessoeesosseseveesees 


SCAN PRB BETA GAMMA 
POSIT 

1 -3.@0 2.725E-O2 6.991E-82 
rd -2.90 Z.7IIE-O2 7.27SE-O2 

3 -2.78 2.692E-02 7.184E-02 
4 -2.60 2.673E-@2 7. 32B8E- 22 
S -2.50 2.627E-2 7.62S5E-@2 
6 -2.4@ Z.SS4E-O2 7. 661E-82 
q -2.30 2. 483E-O2 7. 344E-O2 
8 -2.20 2. 355E- 82 7. TS4E-O2 
9 -2.10 2.Z21SE-@2 8. 341E-O2 
10 -2.00 2. 044E-02 B. 770E- 82 
"1 -1.90 1. 9Q@5E-02 8. 460E-@2 
12 -1.80 1.782E-@2 9.272E- 22 
13 =£.72 1.64@E-@2 8.851E-02 
14 -1.6@ 1.552E-22 8. 76SE- 02 
1S -1.5 1.4B4E-@2 9.438E-@2 
16 -1.4@ 1.493E-@2 8. 893E- 02 
17 -4 3@ 1.S530E-@2 8.422E- 2 
18 -1.20 1.619E-@2 9.626E-92 
1g “1.10 1. 764E-02 8. 79SE-@2 
2 -1.0@ 1.936E-@2 8. S9GE- 02 
21 ~.90 2.@99E-O2 6. 377E-@2 
Z2 -.8 Z.2S54E-02 7.873E- 02 
23 70 2.345E-@2 7.643E-@2 
24 -. bo Z.4Z21E-O2 7T.SISE- 02 
2S -.52 2.48QE-@2 7. 39OE- 02 
76 -.40 Z.S1QE-O2 7.397E-O2 
27 - .30 2.523€-O2 7.6S9E-02 
28 -.20 2.S3BE~-@2 7. 463€-@2 
23 -.10 2.529E-O2 7. 4SE-@2 
3@ ®.e@0 2.S39E- 92 7. 686E- 02 
3} 10 2. SAGE -@2 7.476E-O2 
32 20 Z.S4QE-O2 7. 3QSE-O2 
33 30 2.536€- 02 7. S5@SE-@2 
34 40 2.S529E-O2 7. 4B39E-@2 
35 +5 2.493E-@2 7.O99E-O2 
36 .55 2 .439E- 02 6.593E-@2 
37 «68 Z.428E-82 7. JISE-O2 
38 -65 2.36SE-@2 7.677E-82 
39 -7® 2. 37GE-O2 7. 4t6E-@2 
42 75 2.255E-@2 7.S91E-O2 
4) -80 2.7Z77E-92 7.SS7E- 02 
42 -85 2. 146E-@2 8. 119E-A2 
43 90 2.@69E-02 8. 12SE-@2 
44 95 2.024E-02 6.239E- 02 
4s 1.0 1.945E-@2 8. 6O4E- 02 
46 1.85 1. BBZ2E- @2 8.584E-@2 
47 1.10 1.79SE-02 8.423£-02 
48 '.1S 1. 719E-@2 9.19 7E-O2 
49 1.20 1. B8@E-@2 9.41@E- 02 
58 1.25 1.635E- @2 9.322E-O2 
st 1.30 1. S69E-O2 9. 68SE- 02 
52 1.35 1.531£-02 9.202E- 02 
$3 1.40 1. SQ@E -@2 9.299E-@2 
S4 1.45 1. 48SE- 02 9.626E-02 
5S 1.50 1. 46QE - 02 9.295E-02 
S6 1.55 1. A7@E- @2 9. SIGE - 02 
S7 1.60 1. 485E-@2 9.429E- 02 
ro toe 1 AQIC_AF 9 9700 -~? 
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PHI 


S.347€- 
3. B9ME - 
4. 334E- 
3.S87E- 
2.04 3E- 
1. 82@E- 
3.401E- 
1. 397E- 
-1.638E- 
-3.765E- 
-2.107E- 
-6.261E- 
-4.O07SE- 
-3.6S5E- 


-7.224° 


-4.365E- 
- 1. 88QE- 
-8.120E- 
-3. 7865 - 
-2.821E- 
~t.777E- 
T.33tE- 
-@3 


1. 883E 


Z.S25E- 
3. 1E9E- 
3.142E- 
1.814E- 
7.B814E- 
2. B878E- 
1. 6B6E- 
2.751E- 
3.621E- 
2. GOCE - 
2.68tE- 


4.651EF 
i ee oe 


3.442E- 

1. 707E- 

3. @3@E - 
2. t67E- 
2.353E- 
-4.BO7E- 
-4.702E- 
-1.037E- 
-2.B66E- 
-2.727E- 
-t.677E- 
-5. 8668E- 
-6.977E- 
~6. SIGE - 
-8.452E- 
-S.94BE- 
-6.487E- 
-B.208E- 
-6.495€- 
~B. @3%E- 
-T.174€- 


-9 FOQAT- 


@3 
@3 
@3 
@3 
@3 
@3 
@3 
@3 
@3 
3 
@3 
03 
03 
@3 
@3 
@3 
@3 
%3 
@3 
3 
@3 
4 


Q3 
@3 
@3 
@3 
23 
3 
%3 
@3 
@3 
@3 
@3 
@3 
@3 
@3 
@3 
Q3 
03 
@3 
@4 
04 
e3 
93 
@3 
@3 
03 
@3 
@3 
@3 
3 
e3 
@3 
@3 
@3 
@3 


mar 


Xvel 


AMDAANAAHAAMAANAINNNNNNNDDODTVDDDDAMDNDNDBDDAMHDNIVANMNAAHMNAANANYNYINeSTwaemanawoaa 


-626E-@2 
- 6O4E- 02 
-S75E-O2 
. S44E-87 
-47RE- 82 
. I53E- OZ 
-238E- 02 
-@2BE- 2 


79 3E-@2 


- 49GE- 2 
- 246E-02 
-O14E-82 
- T3SE- 22 
-SS7E-@2 
-4O9E-Q2 
-A31E-22 
-SIIE-Q2 
-B9IE-@2 
- 9BQE-O2 
- 3O3E-O2 
-SIIE-Q2 
- BCE -@2 
- B1Z2E-82 
. LS7E-O2 
-234E-@2 


2BIE-22 


- 3O4E-@2 
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BISE @t 
13@E @1 
4BlE-at 
BPRE-O! 
7AHE @1 
Aanr -Al 
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-251E+@) 
- 246E 401 
-250E481 
-247E4@1 
-255E +81 
-245E +81 
-252E+81 
2456401 
-25TE+Ot 
- 251648) 
-cS2E +81 
-252E+O1 
-25S5E+Ol 
-24S5E4@1 
- 260E+@t 
-252E +81 
-2S1E +01 
- 2506 +8! 
-249E +01 
-246E Ot 
-253E +8! 
-246E +01 
-252E4@1 
-2SPE8t 
-248E Ol 
-254E Ot 
-251E +O! 
-253E+01 
-245E+@1 
-252E +O 
-251E+Ot 
-2S3E+ Ol 
-25S5E +81 
-c62EOt 
-CS7E +84 
- 2596401 
- 256E +81 


' 
1 
t 
! 
! 
! 
| 
t 
1 
' 
i] 
1 
1 
1 
t 
| 
| 
1 
1 
' 
1 
i 
1 
t 
' 
1 
| 
} 
| 
! 
t 
t 
t 
' 
| 
! 
' 


-79IE-@1 
- 778E-@1 
-753E-@) 
-7T22E-@I 
-697E-O1 
-672E-8) 
.639E-Ot 
-SICE-O1 
-S74E-@1 
-S32E-01 
-SOSE-@1 
-497E-@1 
- 486E-@1 
-463E-@1 
-468E -O1 
-466E-@1 
-471E-@1 
-4B8E Ot 
-SQSE-O1 
-SC6E-O! 
-SSIE-O1 
.S94E-O1 
-625E-@1 
-65SE-@? 
-7TO7E-@1 
742E-Ot 
-772E-@1 
-8Q7E-O1 
-832E-@1 
-853E-@) 
-B93E-Ot 
-B97E- Ot 
ICSE -A1 
-INZE-Ot 
-SISE-@1 
-FIGE-O1 
-9I7E-O} 


DAWA WUNWNU NUNN WN NUN ANnnnnnnn=e ee eee ee ewe ne. 


-848E +80 
-6S7E4#80 
-666E +00 
-641E+00 
-6496 +20 
- S39E +80 
-541E+2@ 
- 49BE+0@ 
-G8SE +00 
-656E 400 
-641E+00 
- 795E +00 
- 796E +80 
- 1S9E #00 
- O5 7E +80 
-C33EHRO 
-421E +20 
-690£ +80 
-B37E +00 
. F4DE4OO 
-O776 400 
ZIRE HOO 
- 3566 +00 
-479E +186 
-SICE+HOR 
-S2PE +00 
-S2BE +00 
ASCE HOO 
SATE AD 
. 544E +00 
- SE9F 408 
- CBE 108 
2426400 
-O77E 100 
FOIE FOR 
- QBEE SOQ 
- 0786 +80 


POSSE Deas OeEREOEHHHEHS SEDER EC EF ER ETE ® 





TABLE B10 (CONTINUED) 


- 376E-O1 - @C5SE+80 


2 2 | 8. 946E-@1 
27 2.365E-61 1. @@SE+0@ 8.356E-@1 
<8 2.555E-@) 1. 0@5E +00 @.956£-@1 
29 2.3@5E-@1 1. @@SE+@8 8.997E-@! 
30 2.338E-@! 1.Q@@SE+@0 8.938E-@! 
3f 2.327E-81 1. @O0SE +00 8.9S59E-@1 
32 2.276E-21 1. 0QS5E +80 8.981E€-@1 
33 2.254E-O1 1.@@S6+@2 8.98SE-@) 
34 2.262E-@1 1.2256 +82 B.971E-@! 
25 2.326E-@1 1. @@SE4+@0 8.937E-O1 
36 2.368E-@1 1.@Q@SE+00 8.9546 -@t 
37 2.395E-01 1.Q@S5E+00 8.98CEr 3) 
38 2.4386 -@t 1.8@S5E+8@ 8.872E-@l 
29 2.S84E-@1 1. @0SE +80 8.B816E-@1 
ag 2.6S9E-@1 1.Q08SE+¢@ 8.779E-O1 
4) 2-8@3E-01 1.00SE92@0 8.689E-@1 
az 3.C34E -O1 1. QOSE+@9 8.S69E-O1 
43 3.237E-@1 1. Q@SE +08 8.486E-01 
44 3.344E-@} 1.@@SE+2@@ 8.3AfE-O1 
4S 3.6S9€-@1 1. Q@@5E4+68 8.247€-@1 
46 3.846E-0! 1.Q@Q4E +02 8.@99E-@t 

7 4.@70E-@) 1. O@4E+ee 8. @29E-@l 
48 4.312E-@) 1.Q04E +00 7.82RE-@) 
49 4.7@2E- Ct 1.QG4E 100 7.61ZE-@! 
Se 4.PQ7E-C1 1. @04E+00 7.SI7E-@) 
SI S.119E-@t 1.@24E4+00 7.213E-@! 

2 S.3@7E-@1 1.@@3E+@9 7.178E-Ot 
53 5.34@E-@1 1. Q@7E+O@ 7.14@E-O1 
S4 S.416E-O1 1.Q@Q3E+00 7.@R@E OI 
SS S.S591€-@1 1. @07E900 6.999E-@1 
56 S.548£-901 1. Q@@3E+0@ 6.977E-@1 

f S.S6Q@E-¢1 1. Q@@ZE+22 6.99CE-@1 
58 Sasha ett 1. SRTE ED 7.Q19E -@! 
53 S.48°F-@1 1.@@ZE+lO 7.1@2E-@t 
6@ 5.3946 -01 1.@Q7E +00 7.18SE-Ot 
61 S.2178 @1 1. @Q4E +80 7T,294E-8) 
62 5.@Q7E-@1 1.@@4E +00 7.AS9E-O1 
63 4.779E-@1 1.Q@R4E 100 7.B24E-O1 
64 4, SASE-@} 1. QO4E4R 7.756E-@5 
65 4.249E-@1 1. QC4E+8Q 7.9S7F- OI 
6&6 3.9@cE C1 1.@Q4E+@0 €.163E -CF 
67 3.626E-@1 1. @@SE+@e @.316F - Qt 
€8 3.360E-C1 1. @OSE+00 @.475E @ 
69 3.Q54E-Ch 1. @CSE +O 8.626E @t 
70 2.78SE -@1 1.Q@QSE+CQ @.7aSe-@t 
7 2.604E- 01 1.@CSE+Q0 6.P55E-@) 
7e 2. 316E-OF 1. QASE se 9.@145-@1 
#3 2.17EE -@1 1.Q@@6E+2@ 9.@78E-OI 
7 2.Q73E Ot 1. @Q5E+@0 9.127E€ @1 
75 @.@24£-@1 1. Q@6E 422 9.127E-Ot 
76 P.97AE OF 1. @@6E+2@ 9.1S8E-@! 
77 1.9S6E-@1 1. Q@6E +28 9.1ScE-O! 
78 1, 969E-@1 1. Q06E4+00 9.164E-O1 


SOPHO FETE SETS SESH EES OHEESES SO REHSTTSESEHEFHSEE OSHS EESOCEEF EER ES ESTES OEE TED ESE ES 


ENSENBLE AVERAGES 


PPAUG FAAUG TENF AUG XPEFAUG VREF AUG QREFAUG 
|. 2BOE +O) 406 .B83E +00 S4@.@2 3. 31SE-02 2.373402 1. C46E+O1 
MUPEF TENMPSTATAUG 


1.232E-@5 S.353E+00 


RE TNOLOS MO 
4.91506 #05 


sree nenee samme aa snes eer ses sessesesesenseesseSeaerssaseseanssessees 
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TABLE Bll 


BLADE COEFFICIENT OF PRESSURE SCALED DATA FILE PRINTOUT 


SCCROC RTOS REESE ETHERS SHOESESEOEER ORDER EHESEOR ERASE ESO 


BLADE SCALED DATA FILE B-17APRSCL 


HECHT HEHE SEERS TPES TREE HETHEHEFETT SSO S EERE ORE E EE EE SERED 


FROBE DATA ASSOCIATED WITH THE BLADE DATA IS CONTAINED 
IN FILE: U-t7APR7SCL 


SCAN: 43 
SCANTVALVE PRESS CINCHES H2o0) 
FORT 
' 2. Q00E -@2 
2 1.25SE9@1 
3 1.322E+@t 
4 -3. 6626400 
S -1. 100E +00 
6 3.3@@E-@1 
7 9.3ACE-O1 
8 1.@92E408 
3 9.12@£-O1 
19 7.10@E-@1 
W 7.260E-O81 
i? 7.76O£-O) 
13 1. @A6E +80 
14 1, 8826 +00 
iS 2.478E +00 
16 2.2786 100 
17 1. 460E +02 
18 1. 7686409 
19 2. 448E +00 
a’) 3. AQEE ING 
él 4. BCE +20 
22 7. 302E +00 
2 ~1.825E+@1 
24 -3.427E4@1 
e -3.382E +81 
2 ~S.VVIEIG) 
2? -2.435E4@1 
9 ~1.@S4E ret 
pa) -1,495E+@1 
38 -1. 3336401 
3) -t. 1476181 
32 -9.@50£ 100 
33 -7. 35GE 12O 
34 -6. Q36E@0 
35 -5.@c0€ 100 
36 - 4.2596 +80 
37 -~3.970€ 400 
38 -2.696E +80 
29 ~3.428E +00 
4@ - 3.3366 +00 
Al -3.165E #20 
42 ~3.1@4E ICO 
43 9.6@0E -@1 
44 -9.956F#@0 
45 -3.S14E 420 
46 1.72BE 120 
4? 1. 142E+@9 
48 ~2.8B5E+80 
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TABLE B12 


BLADE COEFFICIENT OF PRESSURE REDUCED DATA FILE PRINTOUT 


FOES CEEREESEPSEEESEE ESE ESE SES CRE RER ED 


BLADE CF FILE B-23MARTCALC 


SACRO ETE S HEEFT TEHES ECHO PEE REEF TEFESEP TERED FTES SESAE SHEESH REESHSHREEEESESESHEESD 


SCANIVAL VE MASS AVERAGED COEFFICIENT 
PORT OF FRESSURE 
4 2.431E-@1 
S 3.733E-@1 
6 4.484E-@1 
7 4.777E-@1 
8 4. 877E-O) 
9 4.829E-@! 
1@ 4.675E-@! 
in| 4.772E-@1 
z 4.683E-@! 
13 4.84S5E-@1 
14 S.2B3E-@1 
15 S.61@E-@) 
16 §.SI2E-1 
17 S.064E-@1 
18 S.18@E-€1 
19 S.S30E-@1 
20 6.397E-@1 
2 6.831E-O8) 
2 8.171E-@8) 
Ks -S.Q@66E-@! 
24 ~{. 284E 402 
es ~1.347E+00 
2 -1.2Q@5E+e2 
27 -8.638£-@1 
2 -5.S32E-@1 
29 -3.SS7E-@1 
wi] -2.787E-@1 
3) ~1).81B6E-@) 
32 -S.412E€-@2 
33 4.036E-O2 
a 1.087E-@) 
35 1.633E-@! 
36 '.987E-81 
37 2.250E-8) 
39 2.341E-@1 
33 2.487E-0) 
40 2.S551E- Ot 
At 2.655E-@1 
42 2.689E-@) 
43 7.78G@E-@) 
44 -9.269E -02 
45 2.444E-81 

- 46 5.21@E-01 

A? 4.891E-O1 

48 2.805E-@1 
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B.7 IMPROVEMENTS 

Improvement in the method of obtaining probe survey data 
can be made by changing the three programs involved. Changes 
will make data acquisition more efficient, reduce the chance 
of errceneous entries and provide more accurate data. 
Recommendations include: 


1. Classick's [Ref. 6] recommendation on DVM error correc- 
tion is reiterated here. 


2. Dynamically size the arrays in "CALC." ("LOSS and 
"ACQUIRE" have been dynamically sized in data files and 
arrays.) 

3. Establish data files to include survey scan number and 


probe position to be used in flow field mapping. 

4. Convert the use of "1" and "2" in previous programs to 
"l" and "u" for upstream and downstream positions. This 
would make program flow and conversion easier. 

5. Do not combine "CALC" and "LOSS" as recommended by 
Classick. Combination would require repetition of 
"LOSS" in "CALC" for mass-averaged and mixed-out losses. 

B8. SUMMARY OF PROGRAM STEPS 

All commands except RETURN are executed by pressing the 
soft keys f1-f8 corresponding to the labels appearing at the 
bottom of the screen. 

The following is a summary of program steps: 

1. DVM, SCANNER and Scanivalve controller--ON 

2. Disc Drive--ON 

3. Disc Drive Amber lights--Extinguished 


4. Computer, Monitor and Printer--ON 


5. LOAD "/CLASSICK/PROGS/ACQUIRE" 











pe 


18. 


19. 





RETURN 
Press RUN 


Type raw data file name for probe survey without 
quotation marks. 


RETURN 


Type scaled data file name for probe survey without 
quotation marks. 


RETURN 

Type atmospheric pressure in inches Hg. 

RETURN 

Press ONE PROBE or TWO PROBES 

Type scan number, probe position. For two probe option, 
type scan number, lower probe position, upper probe 
position. 

RETURN 

Press REPEAT or RECORD 

{REPEAT returns prompt for scan number and position of 
data point to be repeated. RECORD stores data to the 
file.] 

Press GO ON or END PRB DATA 

{GO ON returns prompt for next scan number and probe 
position. END PRB DATA terminates probe data 
collection. }j 

Press GO ON or COLLECT 

[GO ON by passes instrumented blade data collection and 
returns print option prompts (Step 20). COLLECT returns 
prompt for instrumented blade raw data file.] 

a. Type raw blade data file name 

b. RETURN 

c. Type scaled blade data file name 


d. RETURN 
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20. 


21. 


22. 


23. 


24. 


25. 


26. 


27. 


28. 


29. 


30. 








e. Press REPEAT or RECORD 


[REPEAT repeats the blade pressure scan, RECORD 
stores data to the file.] 


Follow the print option prompts 


Note that this is the only time to obtain a hard copy of 
the raw and scaled probe and blade data. 


Press GO ON or CALC 


a. GO ON terminates "ACQUIRE." Note that "CALC" can be 
executed later by the commands: 


1. LOAD "/CLASSICK/PROGS/CALC" 
2. Press RUN, loads and executes "CALC" 
b. Proceed at Step 22 


Type the scaled probe data file name created in 
"ACQUIRE." 


RETURN 


Type the probe calibration coefficient file for xX 
(velocity). 


Note that for this work MIKEC3 is the X file. 
RETURN 


Type the probe calibration coefficient file for Phi 
(pitch). 


Note that for this work MIKEC2 is the Phi file. 
RETURN 
Press ONE PROBE or TWO PROBES 


[TWO PROBES will prompt the user for the upper probe 
calibration coefficient files for X and Phi] 


Type the file name for the data to be reduced from the 
scaled data file. For two probes, a second reduced file 
name is required. 


RETURN 
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31. 


32. 


33. 


34. 


35. 


36. 


37. 


38. 


39. 


Type in the probe block to vertical angle. 
RETURN 
Note that this angle was 40.4 degrees for this work. 


Type in the low limit scan # for the Reynolds number 
integration. 


RETURN 


Type in the high limit scan # for the Reynolds number 
integration. 


RETURN 
Press REDUCE DATA after amber light quits blinking. 
Press GO ON or BLADE CP'S 


{GO ON returns prompt to load "LOSS" (Step 39), BLADE 
CP'S prompts for scaled blade data file] 


a. Type blade scaled data file name 
b. RETURN 


c. Type the file name for the data to be reduced from 
the scaled data file 


d. RETURN 


e. Type scan number associated with lcwer limit of 
integration of probe lower blade-to-blade survey 


f. RETURN 


g. Type scan number associated with height limit of 
integration of probe lower blade-to-blade survey. 


h. RETURN 

i. Press BLADE DATA after amber light quits blinking 

Press GO ON or LOSS 

a. GO ON terminates "CALC" and would be the choice if 
only one of the survey pairs had been conducted. 


Note that "LOSS" can be executed later by the 
commands: 
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40. 


41. 


42. 


43. 


44. 


45. 


46. 


47. 


48. 


49. 


50. 


51. 


52. 


53. 


54. 


55. 


1. LOAD "/CLASSICK/PROGS/LOSS" 


2. Press RUN, loads and executes "LOSS" 


b. Proceed at Step 36 


c. Note that "LOSS" requires upper and lower probe 
blade-to-blade reduced data file names. 


Type the lower probe blade-to-blade survey reduced data 
file name. 


RETURN 
Type the lower probe survey maximum scan number. 
RETURN 


Type the upper probe blade-to-blade survey reduced data 
file name. 


RETURN 
Type the upper probe survey maximum scan number. 
RETURN 


Type tie scan number corresponding to the lower limit of 
integration for the lower probe survey. 


RETURN 


Type the scan number corresponding to the upper limit of 
integration for the lower probe survey. 


RETURN 


Type the scan number corresponding to the lower limit of 
integration for the upper probe survey. 


RETURN 


Type the scan number corresponding to the upper limit of 
integration for the upper probe survey. 


RETURN 
[Note that integration interval for both upper and lower 


probes must be exactly equal even though the scan number 
entries may not be the same} 
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56. 


Program "LOSS" terminates after mass averaged and mixed- 
out flow cunditions and losses have been calculated. 


57. Information from loss is automatically printed out. 
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Ww PPROGRAT ACOUTRE 
im {THIS PROGRAM ACQUIRES DATA FROM S-HOLE PROCE SURVEYS AND PRESSURE 
2 NOISTRIBUTLON FROM AN INSTRUMENTED BLADE. SEE CLASSICK M.S. THESIS 
3 {SEPT 89 FOR PROGRAM DESCRIPTION AND DETAILS. 


S2 Peoesacasveseesesseose DIMENSION ARRAYS seeseresrenssesreessssenssezen 


S53 OPTION BNSE ! 


54 DIM Raudat(t, 106) 


56 DIM Scaled( 1,16) 


$9 DIM FProtdatal! 48) 
5 OFM Prntdatb( 1,48) 


Gt MAT Prntdata= (@) 


65 MAT Frntdatb~ (8) 


66 Leeseeeaesesacsecsere YANINGLES eset resesnvercsescensneceseeeeesersue 


67 Oport=1 


68 
70 Hpoort=!4 
W 
73 Oportast 
74 


76 Hportarah 
7? Dpor ttt 


78 

Aa Hpertbe19 

81 Scntempr! 17 18 
82 Scnyauchn=74 
B3 Scnyauchn] 274 
£4 

85 Scnyauchirws*2! 
87 


89 Srenvae-d 
J@ Senvb-? 
9) Scene 709 
92 Sver 707 
93 Dvm-72? 
q4 Scir dsverl 


98 Scent dsvca-O 


1, Scene dsvectel 


Lag Sruatpsvea-A® 
106 Scenstpsvch- 4 
1e@r Scnhimsvea: 45 
1@6 Scnhmsveb-46 
109 Haxdi f= 090050 
118 Prnter<79) 

wit Scren-l 


TABLE B13 


ACQUIRE PROGRAM LISTING 


IBASE OF APTar WILL BE ONE INSEAD OF ZERO 

(THIS ARRAY VILL ACCOMODATE BOTH 48 PORT 
ISCANIVALVES AND 1 CHANNELS FROM THE SCANNER 
HARRAY USED IN PRINTING PROBE & CASCADE PRSSURES 
}TO SCREEN 

HARRY USED IN PRINTING BLADc PRESSURES 10 SCREEN 


HINETIALLY TELLS ARRAY WITH ZEROS-IF ENFSRE ARRAY 
TIS NOT FILLEG ULTH DASA, THEN REMAINDER OF ARRAY 
(WILL CONTAIN ZEROS. 


IDESTREO FORT. 17 IS DESIRED THAT THE SCANIVALVE 
(BEGIN AT PORT 1. 

tHIGH PORT. LAST PORT ON THE SCANIVALVE THAT IS 
'OF INTEREST. 

ISAME AS AROVE EXCEPT IT PERTAINS TA SCANIVALY. 
PRESERVED FOR INSTRUMFNTED BLADF SURVEY. 

{ALL PORT USED ON THE BLADE SURVEY 

11N TWO PROBF SURVEYS, MORE PC..1S ARE USED- THE 
IDESIREO FORT 1S STILL 1. 

{LAST PORT OF INTEREST FOR TWO PROBE SURVEYS. 
ISCANNER CHANNEL ASSIGNED TO THERMOCOUPLE 

t* 7. . " YAW TRANSDUCER. 

oe 7. ss " LOWER PROBE YAU 
VIRANSDUCER FOR TWO PROBE SURVEYS. 

SCANNER CHANNEL ASSIGNED TO UPPER PROBE YAU 

I TRANSDUCER FOR TWO-PIORE SURVEYS. 

ISCANIVALVE USED FOR INSTRUMENTED BLADE . 

Is os = “PROBE & CASCADE PRESSURES. 
ISCANNER BUS ADDRESS 

ISCANIVALVE CONTROILIER BUS ADDRESS (HG- 78K) 
IDIGITAL YOLTMETER BUS ADORESS 

ISCANE.. CHANNEL ASSIGHFD TO READ SCANTYAL VE 
ICONTROLLER (SCANIVALYVE READ 1S THE ONE FOR 
IPROBE AND CASCADE PRESSURES. > 

{SAME AS ABOVE EXCEPT THE SCANIVALVE READ IS FOR 
(THE INSTRUMENTED BLADE PRESSURES 

1SAMF AS ABOVE EXCEPT SCANIVALVE REF) 1S THE 
ONE FOR PRORF & CASCADE PRESSURES WHEN 7-FRODE 
JOPTION TS SELECIED. 

ISCANNER CHANNEL ASSIGNED TO STEP SCANIVALVE A 
,* " . “ “ “ B 
ISCANNER CHANNEL ASSIGNED TO HOME SCANIVALVE A 
to ” ” ° " “ B 
TERROR TROP FOR SPURTOUS DVM READINGS. 

'BUS ADORESS FOR PRINTER 

4BUS ANDRESS FOR MONT TOR 


W12 LOADSUB ALL FROM “/CLASSICK/ROUTINE S/SURAC QUI RE” 


113 trSS STORAGE 1S “/CLASSTCK/ONIN" 


TALLOUS RAW DATA FILE NAME TO BE ENTERED 


144 TAT THE PRONE T WITHOUT PATHNANE 
116 PRINT “evcccesee esse sees eee T OTe PROTECe EER ESEHHOFEEHETEEOEETEECeHAT ee” 
117 PRINT "" 


nie PRINS “NOME FILE FOR THE RAW DATA TO BF COLLECTED FROM THE PRORECS)” 


419 INPUT Rauf tiled 


127 CREATE ANAT Ravel tiles 120,848 FRAUFILEt 1S A STRING VARIABLE ASSIGNED 


PR Se ee 


HTHE ROWEILE NAME TO BF ENTERED AT THE PROM T 
ITHES FEE TS 1@0 RECO.IS CEROUGIT FOR 104 DATA 
IPOINTS) EACH RECORD CAN CONTAIN 106 REAL 
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TABLE B13 (CONTINUED) 


INUNBERS 8X1@6- 848. 
ASSIGN OPath! 10 Rouftles iASSIGNS A PATHE NATE TO THE RAW FILE JUST 


ICREATEN FOR ENTER AND OUTPUT STATEMENTS. 
MASS STORAGE 15 “/CLASSICK/REDOANTA” 
PRINI “SURO R REDE SOPERER TERR TED ESE H EP EHA SEH TCE HORE OEF HOES CRESORTARSaeE 
PRIN: 
PRINT “NAME FILE TO STCRE THE RAW OATA SCALED TO ENGINEERING UNITS” 
INPUT Sclfites 
CREATE BOAT Sclftlet, 100,948 
ASSIGN @Path? Tf Sclftle¢ 
PRINT “Geen sseeoeeresersecseeren eee see vases ueceersssantoaeerenarszrene” 
PRiNT "" 
PRINT "ENTER THE ATMOSPHERIC PRESURE "N INCHES HG” 
ENPUT Pbharo 
PRINT "" 
PRINT “sescveces ace ar es eer esac eee ee FOS EPEAHDOREFESTESH EER OTSERSeOsEB EEE 
PRINT "" 
PRINT “PRESS “SONNE PRODE*" TF ONF PROBE 15 USED.” 
PRINT “PRESS "“"TWO PROBES”” IF TWO PROMES ARE USED.” 


PRINT 
PRINT PPO eRREU UVES U SEP UEUUEPRES ESTO USES EE RECSSEOCCOCESCE COLES ESCES SSE EES SS oe 
FRUNT 
ON KEY ff LABEL “ONE PROBE” GOTO Numberprbs! {CODING FOR SOFT KEYS 
ON KEY 4 LABEL “TWO PROBES” GOTO Numberprbs2 
Spint: GOTO Spinl 1KEEPS SOFT KEY LABELS ON SCREEN UNTIL 
(EITHER SOFT KE’ 1S PRESSED. 
Number prbst- Noofprbss] TNUMBER OF PROBES DETERMINES WHERE TO 


1GO IN THE PROGRAM. 
GOTO Checknoofprbs 
Numbe poo 27: Noofprbs-7 
Checknoo,prbs: IF Noofprbs-2 THEN 
Start2prbs: INPUT “ENTER THE SCAN NUMBER, LOLCR FROBE POSITION AND UPPER P 


ELSE 
Startiprb: INPUT “ENTER THE SCAN NUMBER AND PROBE POSITION" Scan,Posit 
PRINT &" 
PRINT “sevenearer es es eee eeeseesesere SES OFFERS SEODEOTEORE DE RERES SE RT ARETE 
€ND TF 
COM /Posttvrbis/ Sve,Sen tcOMHON BLOCK VARIABLES USED IN POSITIONING 


1THE SCANIVOLVE PORIT5. 
COM /Readvrbls/ Scan, Dvn, Scanvb 1,48), Fempchard, Yauchnard, Scnyauchn,Scntemp 
COM /Readvebls/ Yawchnrd! ,Sc.yauctnu, Scnyauchnl ,Maxdif 
TABOVE COMNON BLOCK VARTABLCS USED IN 
YOBIAINING DVM READINGS. 
IF Noofpebs*Z THEN 
GOTO Read2prbs 
ELSE 
GOO Readlprb 
END Tf 
Read?prbs:FRINT “SCAN NUMBER’ Scan 
PRIHT “LOWER PROBE POSTTION' iPositt 
PRINT “UPtER PROBE POSITION’ Posttu 
PRINT “PORT VOL TAGE GAUGE PRESSC INCHES HZo0) 
MAT Seanvb= (4) 
FOR Db-Dore th TO Mporth 
CALL Scnvpor tposit( Scnvb, Dh, Scnhasvcb, Scnstnpsvcb) ICALLS SUBROUTINE 
tTO POSITION SCARIVALVE PORTS. INITIALLY FT WILL 
1POSITION SCNIYALVF TO PORT 1. 


CALL Readdveat Db, Senredsvcb) TCOLLS SUBROUTENE TO READ THE 
TThE SCANIVALVE PORT REKDINGS ON 
{THE OVE. 

Pentdatht!, 1)=Scanvbtl,1)9°19000 (CONVERTS OVM READINGS TC PRESSURE 
IVAL UES. 


If Obs) THEN Pentdatb(! Ob)9Scanvb(1,0b)«10000-Prntdatb(',1) FALL OUS 
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197 
198 
200 
2@1 
20? 
203 
704 
20S 
206 
207 
208 
210 
7 
z12 
z2t3 
21S 
716 
217 
718 
219 
220 
221 
222 
273 
225 
226 
228 
223 
73) 
232 
233 
235 
236 
237 
238 
239 
240 
24) 
242 
243 
244 
245 
246 
248 
749 
250 
251 
252 
253 
254 
255 
256 
257 
258 
253 
260 
26) 
262 
263 
264 
265 
266 
267 


TABLE B13 (CONTINUED) 


!PORT 1 READING TO 8E SUBTRACTED 
{FROM OTHER READINGS. 
PRINT USING “OD, 10X,MD. 30E, 1@x,MO. 30E" 1 0b, Scanvb( f 0b) ,Prntdatb( I, Db) 


NEXT Ob 
CALL Readdva( Db, Scnyauchnl ) 'Db IN THIS CONTEXT ACTS AS A DUMMY 


IVARTABLE. OVM READS THE LOWER PROBE YAW TRANSDUCER. 
CALL Readdveal Db, Scnyauchnu) 'UPPER PROBE YAW TRANSDUCER IS READ. 
PRINT “eeectccoveses scares reastnecanorebeseertesesseseasaserne” 
PRINT “LOVER PROBE YAW CHAN READING “sYauchnrdl 
Yaul«Yauctined] © (G03 {THIS 15 WHERE THE REFETENCING 
ICORRECTION FOR THE YAW ANGLE IS MADE 
PRINT "LOWER PRODE YAW (DEGREES) “tYaul 
PRINT “UPPER PROBE YAW CHAN READING “| Yawehnr du 
Yauu* Yauchnrdut 1000 IMAKE THE REFERENCING CORRECTION FOR 
{UPPER PROBE YAW ANGLE HERE. 
PRINT “UPPER PROBE YAW (DEGREES) “sy Yauu 
GOTO Continue 
Readiprb: PRINT “SCAN NUMBER’ + Scan {CODING FOR READING ONE PROBE BEGINS 
PRINT “PROGE POSITION’ sPosit 
PRINT "PORT VOLTAGE GUAGE PRESSUREC ENCHES HZ0)" 
MAT Scanvb= (@) 
FOR D*Dnort 10 port 
CALL Scnvportposit( Scnvb,D,Scnhmsavcb, Scnetpsvcb) {CALLS SUBROUTINE TO 
(POSITION SCANIVALVE PORF. 
CALL Readdva(D,Scnrdsvc) ICALLS SUBROUTINE 10 READ SCANIVALVE PORTS 
JON THE DVM. 
Prntdatb(t, f)*Scanvb( 1, 1)#10000 1SCALES OVM READINGS 10 
110 ENGINEERING UNITS. 
IF Ot THEN Prntdatbt! ,D)*Scanvb( 1,0)" 18000-Prntdetb( 1,1) (PORT 1 
YREANDING SUBIRACTED OFF THE SCANIVALVE 
'PORT READINGS. 
PRINT USING “OO, 10X,MO. 3DE, 10X MD. 3DE"1D, Scanvb( 1,0) ,Prntdatb(1,D) 
NEXT O 
PRINT “eosssasseseeceeeese reese reseseteoesnetesesestuesereeesevacen” 
CALL Readdvn( 0, Scryauctn) 
PRINT "YAW CHAN READING “tY¥auchnord 
Yau Yauchmrd® 1000 {THIS IS WHERE TO CORRECT FOR PROBE YAW REFERENCING 
PRINT “YAU (DEGREES) "Yau 
Continue: CALL Readdvm( Ob, Scntempchn) 
PRINT “TEMP CHAN READING “sTempchord 
T«Tempchnrd® 1000 
Tempe 33.91874+34.25+460 HTRON CONSTANTAN THERMHOCOUTLE EQUATION 
YSANE ONE USED BY DREON. 
PRINT “TEMPERATURE (DEGREES R) “y Temp 
Pa-Poaro® 13.57 "ATMOSPHERIC PRESS CONVERTED TO INCHES H70 
PRINT USING “26A,4X,20.20,X,4A8,5%, 30.70, SA" s "ATMOSPHERIC PRESS CINCHES)” .P 
PRINT "" 
PRINT “soceeseneec ss Pee eee SPEDE PER HOE EHR E SETH RR OS OT DERESEHTEHET ERS Ed ER” 
PRINT "" 
PRINT “IS DATA OK? PRESS ““RECORD’” TO RECORD DATA, PRESS "“REPEAT™” TO” 
PRINT “REPEAT THE SCAN.” 
PRINT “" 
PRINT "eaesceveneseceescedracenesereseseseeevoeeeesesennessensersserese’ 
ON KEY 1 LABEL “RECORD” GOTO Storeraudata 
ON KEY 4 LABEL “REPEAT” GOTO Repratscan 
Spin?2: GOTO Spin? 
Repeatscan: IF Noofprbs=2 THEN 
GOTO Start2prbe 
ELSE 
GOTO Startlporb 
END IF 
Storeraudata: 1 STONE RAWDATA TO RAWONTA FILE 
IF Noofprbsas? THEN 
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268 
769 
270 
z7! 

272 
274 
275 
276 
277 
278 
275 
280 
781 

2782 
283 
rac} 
786 
287 
798 
29% 
291 

292 
293 
294 

235 
296 
297 
258 
2799 
302 
335 

302 
323 
305 
306 
307 
3¢8 
3@9 
318 
3h 

312 
313 
315 
316 
317 
318 
370 
321 

322 

323 
324 

325 
326 
327 
378 
323 

330 
33) 

332 

333 
334 


TABLE B13 (CONTINUED) 


MAT Rauidat= (@) 

FOR K-1 TO 15 

Raudat( tk )=Scanvbt1_k) tASSIGN ALL THE SCANIVALVE RENDINGS IN THE 

1SCANVB ARRAY TO THE RAWDAT ARRAY ELEMENT 
1BY ELEMENT 

NEXT K 

Raudat(t,27@)ePositl 

Rawdat(1,21)<Positu 

Ravdat( 1,22)" Yauchardl 

Rawdat(1,23)"Yauchnrdu 

Raudat(1,24)"Tenpcthnrd 

Raudat(1,75)=Pa 

OUIPUT @P ath! .ScaniRaudat(*) {THE ONTA 1S SIORED IN THE AAW DATA 
TFILE WHICH WAS PREVIOUSLY CREATED. 
{THIS IS A RANDOM OUTPUT STATEMENT. 

MAT Scaled= (@) 

FOR K-) 10 19 

Scaled(:,K)=Prntdaib(!,K) 'SAME METHOD HERE EXCEPT SCALED DATA 
SiS REASSIGNED. 

NEXT K 

Scaled(!,20)=Positl! 

Scaled( 1.21)"Positu 

Scaled( !,22)°Yaul 

Scaledt(),23)"Yauu 

Scaled(),24)°Temp 

Scaled(t,2S5)=Pa 

OUTPUT @Path2,ScaniScaled(*) 


ELSE 
MAT Raudat= (@) 
FOR Kel TO 14 JFOR THE ONE PROBE OF TION, ASSIGNS 


HALL THE SCANIVALVE READINGS IN THE 
'ARRAY TO THE RAWDAT ARRAY ELEMENT 
'BY ELEMENT. 

Raudat(1,K)=Scanvb(1,K) 

NEXT K 

Ravdal(t,15)"Posit 

Raudint(1,'6)eYauchnord 

Raudat(1,17)°Fempchnrd 

Roudat( 1, 18)=Pa 

OUIFUT hath ScantRaudat(*) YTHE DATA TS STORED IN THE RAW DATA 
HWHICH WAS PREVIOUSLY CREATED. THIS 
{1S A RANDOM OUTPUT STATEMENT. 

HAT Scaled= (@) 

FOR Kel TO 14 

Scaled(!,K)-Prnidath( tk) ISANE METHOD HERE EXCEPT SCALED DATA 
1¥S REASSIGNED. 

NEXT & 

Scajed(},1S)-Posit 

Scated(1,16)-Yau 

Scaled(t,17)<Temp 

Scaled( t,18)*Pa 

OUIPUT @Path2,ScanrScaledi # ) 

END IF 

PRINT “Sevens s eee reece eee eneS EEF ESHH OHO OES F LESH SEHR EUETERE SEER SD” 

PRINT "" 

PRINT “PRESS “"GO ON" TO CONTINUE TAKING DATA, PRESS ""END PRS DATA™"” 

PRINT “TO TERMINATE PROBE DATA COLLECTION.” 

PRINT "" 

PRINT "ev ecsecereneseseeseereseeseae ts Ses aeesESSOHOREHEsEEtEeeeesenees” 

ON KEY 1 LABEL “END PRA DATA” GOTO Printfilename 

ON KEY 4 LAREL "GO ON” GOTO Collectdata 


335 Spin3: GOTO Spin 
336 Coblectdata: IF Noofprbs=2 THEN 
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GOTO StartZprbs 
ELSE 
GOTO Startiprb 
ENU IF 
PRINT “seca svese ere esse ese ees Pee hUSSEREROESSELESETORDHFELESRDESESEORERE” 
PRINT "" 
Printfilename: PRINT "RAW PROBE UNTA IS STORED " 
PRINT “IN DATA FILE” Ravfiles 
PRINT °°" 
PRIN] “se ne sseraceesee See SOR PDETESEFTSHHLEFEES SHARES ESLESOEESERE Se DeLEsE” 
PRINT "" 
PRINT “PROBE RAW DATA SCALED TO ENGINEERING UNITS" 
PRINT “IS STORED IN REODATA FILE" ,Sclfiles 
PRINT “" 
PRINT “Ce cesew nec r ses sees ere ese OS ESEEESHHESESSSETOOSSISSERESERSEZEEOEOE ED" 
PRINT "” 
PRINT “ENSURE THE PROBE IS CLEAR OF THE INSTRUMENTEO BLADE.” 
PRINT "" 
TRINT “Meera esese sees ets Geet ORS OORESSOESOSEERSRESTORES PSHE ESSE SSHED RES ESCE” 
PRINT "" 
PRINT “ PRESS ""COLLECT DATA"" TO COLLECT DATA FOR THE INSTRUMENTED BLADE” 
PRINT “ PRESS ""GO ON"” 10 CONTINUE WITH THE PROGRAM.” 
PRINT "" 
ON KEY 4 LABEL "GO ON" GO10 Printontsonl 
ON KEY 1 LABEL “COLLECT DATA" GOTO Namefile 
Spin4: GOTO Spin: 
NameSile: MASS STORAGE IS “/CLASSICK/ONTA” {CODING FOR INSTRUMENTED 
'BLADE SECTION OF PROGRAM IS SAME AS FOR 
PRINT “See creas scorers et ees eS ODODE ORO UTES HS VOFEROOST OR OTEHSEDEERESaUREOORE” 
PRINT "" 
PRINT "Nf.te FELE FOR THE RAW DATA TO BE COLLECTED FROM THE BLADE." 
INPUT Reaubladf tiles 
CREATE BOAT Rawblacfile$, 100,384 $109 RECORDS, EACH RECORU CAN CONTAIN 
$48 REAL NUMBERS 8X48=384. 
ASSIGN @Path3 TO Rawbladftles 
MASS STORNGE IS “/CLASSICK/REDOATA” 
PRINT "Se veces eesseer eS ereee eRe E OHHH PHP OOH EC ESSE SHES HEROO TEER POSE SESS” 
PRINT "" 
PRINT "NOME FILE FOR THE RAW ALADE DATA SCALEf) TO ENGJNEERING UNJTS.” 
INPUT Sclbladfile$s 
PRINT "™ 
PRIN “St vaevereseresee Fee ee ESTP SSRTEFSTETH SHORE EHH TES OREHHSESEL EEE DEEeEE” 
CREATE BOAT Sctbladfile$, 100,384 
ASSIGN @Path4 10 Sclbhladfiles 
Blader ead: MAT Scanvar (@) 
PRINT “SCAN NUMBER” , Scan 
PRINT “PORT VOL TAGE GUAGE PRESS( INCHFS H2o0)” 
FOR DacDnorta TO Hporta 
CALL Scnvportposit(Scnvae,0a, Scnhmevca, Scnsatpsvca?) 
CALL Readdvm( Oa, Senrdsvca) 
Prntdata(! ,Da)*Scanval! ,Da)* 10000 
TF Dad! THEN Prntdata(!,Oad*Scanval | ,0a)*10000-Prnidotat lt) 
PRINT USING "DO, 10X,MO. 30F .10X MD. 3NE" 1De, Scanval! Oe) .Prnidatal ! Oe? 
NEXT Da 
PRINT “Steere esses reer eee eSOFESSRESFESFSUSSCSFSS ESTO SSCHOE SESE SESzEeeE” 
PRINT "" 
PRINT “IS DATA OK? PRESS ""REPEAT"” TO REPEAT THE SCAN, PRESS “"RECORD™'" 
PRINT “TO RECORD THE DATA.” 
PRINT “" 
PRINT “@QeeaoseeaeseeeseteceeerseeseseseSRFeTOOeEoeereseseuneasEnengnssa”™ 
ON KEY 1 LAREL “RECORD” GOTO Storedata 
ON KEY 4 LABFL “REPEAT” GOTO Blade: carl 
Spins: GOTO Spins 
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402 
403 
404 
: 405 
ACG 
407 
408 
409 
AIO 
ati 
A12 
413 
414 
| 41S 
ANB 
4i7 
418 
aig 
420 
“21 
422 
424 
475 
476 
477 
428 
429 
430 
° 43 
432 
433 
Ay 
. 435 
436 
43? 
438 
4393 
AN® 
antl 
442 
4A3 
BAA 
AAG 
AAT 
CE.) 
449 
ASO 
45! 
453 
454 
455 
456 
4AS7 
458 
459 
460 
46I 
462 
463 
466 
: 46S 
466 
AGT 
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Storedala: OUIFUT @Path3;Scanval*) 
QUIPUT #Path4a:Prnidata(s) 
PRINT “THIS DATA IS ASSOCIATED WITH THE LAST SCAN OF FILE “Sci files 
PRINT "" 

Printontiont: PRINT “seeeerareatrrer eee seer ER eZeOPCPRESHPTREHTRERSTEST OS 
PRINT “ 

PRINT “ALIGN PAPER JN PRINTER. “ 

PRINT “" 

PRINT "TO PRINT OUF A TABULATION OF THF RAW DATA COLFCTED FROM" 

PRINT “" 

PRINT “THE PROBE(S), PRESS “"RAW TALL". PRESS “"60 ON""” 

PRINT "" 

PRINT “TO CONTINUE WITH THT PROGRAH.” 

PRINT “" 

PRINT “oeares ose ceaee rete seeeHeetSeEETEDEESTSLEROSH EH EH HOS LeT eee eRsA 
ON KEY #1 LAREL “RAY TABLE” GOTO Printrautable 

ON KEY 4 LABFI “GO ON” GOTO Printoptson? 

Sptnd: GOTO Spine 


PrintrautalJe: MASS STORAGE IS "/CLASSICK/DATA" 

ASSIGN @Path! TO Ravfiles 'CTATEMENT PUTS FILE POTNTER AT REGINING 

(OF FILE. 

PRINT °" 

PRINT “PRESS ""ONE FROBES" TF ONE PRORE WAS USER.” 

PRINT “PRESS "“TWO PROBES"” IF TWO PROBES WERE USED.” 

PRINT "" 

PRINT “See veered eee K ASHE SHOU ER ESUET HAE TT TECH TORESPOCT OSTA HRAE HORT ASHE” 
ON KEY ft TABEL "ONE PRORE” GOTO Nunmberofprbst 

ON KEY 4 LARFL "TWO PROBES” GOTO Number ofprts? 

Spin?: GOTO Spin? 

Numbero-m bst: Noofprbs~1 

GOTO Howmanyprbs 

Numberofprbs?: Noofprts*2 

Hownanyprbs: TF Noofprbs=2 THEN 


PRINTER IS Penter {SENDS PRINT STATEMENTS 70 THE PRINTER. 


PRINT “Ceeveset sevens errecs reese ser rat ene oer eesOr nner eseee” 


PRINT "PROBE RAW ONTA FILE “Rauf ile 


PRINT “senessecsessagssrervasreSessarsSrsearreessreesesena” 
PRINT “SCAN L PRO ' 2 3 4 
PRINT ” POSTT" 
FOR N=t TO 100 
ENTER Oath NiaRauriat(*> ‘STATEMENT ACCESSES THF RAW DATA FILE JN 
‘RANDOM MNDE. 
ON EHD @hath! GOTO Tuoprintraul 'SINCE ALL RECORDS OF A FILE MANY 


'NOT BE FILLEO (RECALL 100 RECORDS WERE 
TRESERVED FOR 188 DATN POINTS), THE ON 
fEND STNFEMENT ALLOWS THE PROGRAM TO 
TCONTINVE AT THE Teoprintraw! ! INE WHEN 
HAN END OF FILE CONDITION OCCURS. 
Posit) *Raudai(t,20) 
Port t=Rawdat( t,t) 
Por t2-Raurdat( 1,2) 
Por t3-Rawat( 1,3) 
Por 14=Raudat( 1,4) 
Por tS-Rawdat( 1,5) 
PRINS USING "40,3X,4D.2D,3X, MD. 3DF ,3X,MD. 3DE , 3X, MD. 3DE , 3X MO. SNE , 3X MO. 3DF” 
NEXT N 
Tworrintrawtl: PRINT “Seereectresereuereeeeetee Ea orepesvereaeeesereereeveonT 
PRINT “SCAN 6 7 8 9 10 
FOR N-1 TO 100 
ENTER OF ath! NiRaudatie) 
ON END @fatt)! GOTO Tuonr inte a2 
Por t6*Raudat(!,6) 
Por t7-Reweiei( $7) 
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468 
ace 
470 
a7 
477 
473 
ava 
475 
476 
477 
478 
479 
48Q 
Ag} 
407 
493 
Aga 
Ags 
486 
497 
4ag 
Ang 
490 
A951 
492 
493 
494 
Ags 
496 
497 
498 
agg 
500 
50! 
502 
503 
S24 
505 
S@6 
507 
SB 
509 
S10 
Su 
512 
su 
S14 
SIs 
S16 
S17 
518 
519 
5720 
571 
523 
S74 
575 
526 
578 
529 
530 
53) 
5a 
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Por t9-Raudat( 1,8) 
tos ia-iaudaistt,s) 
Por tt@-Rrudat¢ 193 
Por ti t=<Rawelat(), 11) 
PRINT USING “40,3X,MD. 3DE, 3X, MD. 3UF . 3X, MD. 30E , 3X MD. SL 2X, MO. SUE, 2X MD. 3DE 
NEXT N 
Tuoprintran:7: PRINT “eeeetoarerearenestvesesitzecueresesaseceuarescareerace 
PRINT “SCAN U PRB 12 13 14 1S 
PRINT ™ POSIT” 
FOR N=} 10 100 
ENTER OPath! NeNoudat( #) 
ON END @Path! GOTO Twoprintraw3 
Positu=Raudat(t,21) 
Por tl2=Rawdat(t,12) 
Por t13=Rawdat( 1,13) 
Portt4-Randat( $14) 
Port 1S-Ratdat¢( 1, 1S) 
Por t!6=-Rawdat(?, 16) 
PRINT USING "40, 3X,40.20,3%,MU. SUF , 3X.MD. 3UE , 3X MD. 3UE , 3X, MO. 3DE , 3X, MO. 3LIE" 
NEXT N 
Twoprintraw3: PRINT "euneceacevccarer ere ra cece eae e PRR eR SCTE POR REA TENE SES 
PRINT "SCAN 17 18 ig" 
FOR Net 1G 10% 
ENTER @Path! ,NyRavdat( ) 
ON END @Path! GOTO Suoprintraw4 
Por tt7=Raudat( 1,17) 
Port 18=Rawdat( 1,18) 
Por ti9eRaudat( 1,19) 
ParRawdel( 1,25) 
PRINT USING “40,3X,MD.3DE 4X ,MD. 3DF 4X, MD. 30F IN Port!7 Por tt Porth9 
NEXT N 
Twoprintravwd: PRINT “eeasteaserovvcverteeec rete crerhOC SE SHURDPeRs EARP HODEOS 
PRINT "SCAN YAU L YAW U TENMPCHN ATMOS" 
PRINT " VOLT VOLT VOLT PRESSURE” 
FOR N=1 TO 100 
ENTER @ratht NeNaudatls) 
ON END @Fath! GOTO Tuoprintraus 
Yawelinrd] “Rawdat( 1,22) 
YauchnrdurRaudat( 1,23) 
Tempechnrd-Rawdat(t,274) 
Pa-Rawjat( 1,25) 
PRINT USING “40,3xX,MU. 3DE,4X,HD. 3DE .4X,MD. 3DF 4%, 30.70"3N, Yauchnrd! , Yauctine 
NEXT N 
TuoprintrawS: OFF END @fath! TTERMINATES THE ON END COMMAND 
ELSE 
PRINTER IS Penter 
PRINT “eeeattencunsecueperenenssrarasecexneasernere” 
PRINT “PROBE RAW ONTA FILE “ Raufiles 
PRINT “sescteecragsenegatregtasuesecstecrsertevanes” 
PRINT “SCAN PROBE 1 2 3 4 5" 
PRINT ° POSIT” 
FOR N-1 TO 1% 
ENTER @Path! NiRoudat(e) ISTATENENT ACCESSES THE RAW DONTA FILE IN 
fRANDOM HONE 
ON END @FPath! GOTO Printraw! ISINCE ALL RECORDS OF A FILE MAY NOT HE 
YFILLED (RECALL 100 WERE USED FOR 100 
{DATA POINTS), ON ENO STATEMENT ALIOUS THE 
IPROGRAM TO CONTINUE AT THE Printraow! LINE 
PostteRaudal(t,tS) 
Por ti-Rwdstet,) 
PortZ*Rawdal(t.2) 
Por t3rRaudat(t 3) 
Por t4*Randal(t 4) 
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$33 


S35 


530 


560 
sel 
S62 
563 
SB4 
565 
566 
S67 
SéY 
569 
570 
S71 
572 
573 
S74 
575 
576 
577 
578 
s7y 
See 
58) 
582 
583 
saa 
585 
586 
587 
508 
589 
590 
533 
592 
593 
S94 
595 
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Por tS=Raucdat( 1,5) 
PRINT USING “40,2X,4D.20,2%,M0. 30F ,2X,MO. BDF ,7X MU. 3DE 2M. SDF 7X, MD. SNF 
NEXT N 
Prink, aw: RANT @dosteccret ever ss Ota Rane PR ORR E TECH RTARTA TET ONE OEEE 
PRINT "SCAN §& 7 8 5 19 "1 
FOR Net TO 100 
ENTER @Path! .NsRaudat(e) 
ON ENU @fatlt GOTO PrintrauZ 
Por t6*Raucat( 1,6) 
Por t7=«Raidet (1,7) 
Por t@sRaudat¢ 1,8) 
Port9=Rawdatt(t,9) 
Port)O-Raudat( 1,10) 
Portlt-Reudsat(t it) 
PRINT USING “40,7X,MO. 3DE 2%, MD. 30F .2X%,MD. 3DE, 7X, MD. IDE 2X, MU. 3DE 7X, MD. 3Ut 
NEXT N 
Printraw2: PRINT “eee cere rete at eres CRTC R CERRO RACER AERA ERA a EEE sE 
PRINT "SCAN 12 13 14 YAUCHAN TEMPCHAN AT 
PRINT “ VOLTAGE VOL TAGE PR 
FOR N=1 10 100 
ENTER @Pattel NyRoudatls ) 
ON ENO @Path! GOTO Printraw3 
PortlZeRaudat¢) 12) 
Port) 3-Raudott 1,13) 
Portt4=Raucai(1,'4) 
Ysuchnrd-Raudat( $16) 
Tempchined* Raudat( 1,17) 
Pa:Raudat( 1,18) 
PRINT USING "40,2X,MD.3DE ,7X, MD. 3DE ZX, ND. 3UF ,2X, MD. SDE .2X, MD. 3DF ,27X, 30. 2D" 
NEXT N 
Printraw?: PRINT “asanvaeteetnereerestecee ease eer reese Asha cence nererssene 
OFF END @Patht TTERMINATES ON END STATEMENT 
END IF 
PRINTER IS Scren YRETURNS PRINT STATEMENTS TO MONTTIR, 
PRINT “st ster er reese sere caer esas ese eP PESOS OSU DOSE PESO RECO ROP RSE ED OREDHEE” 
PRINT "" 
Printoption?: PRINT “ALIGN PAPER IN PRINTER.” 
PRINT "" 
PRINT “TO PRINTOUT A TADULATION OF THE PROBE DNTA SCALED IN" 
PRINT "" 
PRINT “ENGINEERING UNITS, PRESS ““SCALED DNTAS" .* 
PRENT “" 
PRINT “PRESS ""GO ON’" TO CONTINUE WITH THE PROGRAM.” 
PRINT “" 
PRIND “seertereseeeusacrttsmer meet ee etre eer eoe se eeereeeeceHreserseuceee” 
ON KEY 1 LABEL “ SCALED DATA" GOTO Prntscaledtuble 
ON KEY 4 LABFL “GO ON” GUTO Printoption3 


SpinB: GO10 SpinB 
Prntscaledtahle: MASS STORAGE IS "“/CLASSICK/REDDAIN" 
ASSIGN @Path2 10 Scifiles 
PRINT "" 
PRINT “PRESS ""GNE PROGE’” IF ONE PROUC Wns USED.” 
PRINT “PRESS ""TWO PRURCS "" IF TWO FRUGES WERE USED.” 
PRINT “" 
PRINT “sewer acer ce eee eee eee U aK AP ARETE RRURER EEE RHETT ECETHECAsEEeeeeres” 
ON KEY 1 LOADEL "ONE PRUBE" GOTO Numberprobes! 
ON KEY 4 LAREL “TWO PROHES" GUTO Numberprobes? 
Spin3: GOTO Spind 


Numberprobest: Noofprtis=1 

60TO Houmanyprobes 

fHumberprottec?: Noofprbs-? 
Houmanyprobes: IF Noofprbe+2 THEN 
PRINTER 1S Prnter 


115 


596 
597 
598 
599 
602 
60) 
6Q2 
603 
624 
6eS 
606 
607 
608 
609 
610 
611 
612 
613 
614 
6IS 
616 
617 
618 
619 
620 
621 
622 
624 
624 
625 
526 
627 
628 
629 
630 
631 
£32 
633 
534 
635 
636 
637 
638 
639 
640 
641 
642 
643 
614 
BAS 
B46 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
B57 
658 
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PRINT Hee H STOO EHSAPPTERECCSRET HHSC RFR LLC eeesevurecreReteres” 


PRINT “PRUSE SCALEO DATA FILE " Sclfiles 
PRINI “eaceeccrcrerscccnnestatescaseurturcesecycecesusasee” 
PRINT “SCAN L PRB ' 2 3 4 
PRINT “ POSIT” 
FOR N=! TO 100 
ENTER BPath2,NiScaled(*) 
ON END @Path2 GOTO Twoprintscel! 
Positl=Scaled(t,2) 
PortieScaled(t,1) 
PortZ=Scaled( 1,2) 
Port3=Scaled(t,3) 
Port4-Scaled( 1,4) 
PortS-Scaled( t,5) 
PRINT USING "40,3X,40.20, 3X, HU. 3DF , 3X ,M{t. SUE , 3X MD. 3DE , 3X MD. 3DF , 3X NU. SIE" 
NEXT N 
Twopriniscl t: PRINT “@eesceresoncarecrerererreseserecteeeeeeteoeeressasenee 
PRINT “SCAN 6 7 8 5 1@ 
FOR N=1 TO 100 
ENTER ®Path2 ,NyScaled(*) 
ON END @Path2 GOTO Tuope tnisc)2 
Por t6=Scaled( 1,6) 
Port?7-Scated(1,7) 
Port@=Scaled( 1,8) 
Por t9=Scaled(t,9) 
Port t@-Scaled( 1,10) 
Portti*Scaled(1,tl) 
PRINT USING "40,3X,MU. 3DE,3X,MD. 30 , 3X MO). UH , 3X MO. SDE .2X,ND. 30E , 2X, MU. 3DF 
NEXT N 


Tuorr itdscl2: PRINT "#serreworeszccresconareeteenocrUseraseussenesserrerrre 
PRINT “SCAN U PRE 12 13 14 1S 
PRINE ” POSIT" 


FOR N=! 10 190 

ENTER @Fath? ,NiScaied(*) 

ON END @PathZ GOTO Tuoprtntscl3 

PositusScaled( 1,21) 

PortiZ*Scabouk', 12) 

Por tt3-Scaled( 1,13) 

Por ti4-Scaled( 1,14) 

Por t!S-Scaled(t,15) 

Por tt6-Scaled( 1,16) 
PRINT USING "40,3X,40.20, 3X, M0. 3DE , 3X MD. 30E , 3X MD. IDE , 3X, MD. 30 , 3X MO. ADF" 
NEXT N 
Tworr intsc) 3: PRINT “Se veevceneresercoscrseertoeereresareeeeseetecevererres 

PRINT “SCAN 17 18 9" 
FOR Nel TO 100 
ENTER Poth? .NiScaled(*) 
ON ENL) @Patli? GOTO Twoprintsc) 4 
Portt7*Scaled( 1,17) 
Portt8-Scclect( 1,18) 
Por th9=Scsled( 1,19) 
PRINT USING "40, 3X, MO. 30€ 4X MO. SNE 4X MO. SIE" WN Por t17,Port!8 Fort 
NEXT N 


Twoprintaché: PRINT “esensarsenrcoscosceaerrerereecrcesersesitteureaetreaere 
PRINT “SCAN YAW L YAU U TEMP ATHOS™ 
PRINT “ OFG DEG (CR) PRESSURE” 


FOR Nz=t 10 100 

ENTER @Path? NiScaled(*) 

ON ENO fPasth? GOTO Tuoprintscl5 
Yeu) Scaded(),22) 
YawurScaled(},23) 

Temp*Scaled( 1,74) 

PusScaled( 1,25) 
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B59 
660 
66I 
662 
653 
G64 
BES 
666 
667 
668 
653 
670 
671 
672 
673 
574 
675 
G76 
677 
678 
673 
Ba 
5B) 
682 
693 
684 
695 
506 
687 
6BB 
699 
590 
691 
697 
693 
694 
69S 
696 
697 
598 
599 
700 
701 
702 
793 
704 
705 
706 
707 
708 
709 
710 
mW 
72 
73 
714 
715 
716 
77 
718 
719 
720 
7 


TABLE B13 (CONTINUED) 


PRINT USING “40,3X,MU. 3 ,4X% MD. 30F .4X HO. 3DE 4%, 3D. 20" N, Yaul , Yau, Ten Pa 
NEXT N 
TwoprintectS: OFF END ©Falh? 

ELSE 
1 ENN JF 

PRINTER IS Prnter 

PRINT “se evescuce eet eranrereeetaeneteesrteaatsastseusage” 

PRINT “PROBE SCALEO DATA FILE “ Selfile$s 

PRINT “eeeseecceecacerecseaeresesserceessecrserseuneacer” 

PRINT "SCAN PROGE 1 2 3 4 

PRINT “ POSIT" 

FOR Net TO 100 

ENTER @Path? .NiScaled(s) 

ON END ®Path? GOTO Printsct! 

Posit«Scaled( 1,15) 

Port!*Scaleut( t,t) 

Fort2=Scaled( 1,2) 

Port3-Scaled( 1,3) 

Port4*Scaled(t,4) 

Por tS-Scaled( 1,5) 

PRINT USING “40,3X,4D.70, 3X, M0. 3DE , 3X, MD. 3DE , 3X, MD. 30F , 3X, HD. 30F , 3X MD. 30 

NEXT N 
Printscll: PRINT “sesceresrt cer eeesect eee eee Re UR HERAT ROUT ReeReeetnes 
PRINT "SCAN 6 7 8 3 1@ " 
FOR N- 1 TO 10 

ENTER ®Path2 NyScated(*) 

ON END OF ail? GOIO Printsc)2 

Por t6-Scaled(),6) 

Por t?=Scalrri(t,7) 

Por tB=Scal-d 1,8) 

Por t9*Scalen( 1.9) 

Por ttO@-+Serled( 1,10) 

Porttt«Scaled( t,t) 

PRINT USING "4D,2X,MD. 3NE ,2X MD. 30F .7X MD. 20F 2X MO. 30E ,7X MD. 30 . 7X, til). SUF 
NEXT N 


Printse)?7: PRINT “sere cceaet eens cer wen eRe ee eee REE HCE R TERK eATec eee 
PRINT “SCAN 12 13 14 YAW TEMP ny 
PRINT ” D&G CR) PR 


FOR N=t TO 100 
ENTER BFath2 NyScalecd(e«) 
ON END OF.sth2 GOTO Printscl3 
Portt2*Scaled( 1,12) 
Port!3-Scaleu(t 13) 
Portl4sScaled(t,t4) 
Yue Scaleudt!, 16) 
Tempe Scatec(), 17) 
Par>Scated( 1,18) 
PRINT USING "40,2X,MD. 308 ,7X,MU. 308 ,2X, MU. 30% 7X MD. 3DF , 7X, MD. 30F ,7X, 30.70" 
NEXT N 
Printsc] 3: PRINT “eceecesecaseccceracnasenneaeneasGatesesereeaereresraraeer 
OFF END EPathz 
END YF 
PRINTER TS Seren 
PRINT “aeteeceseccaecevar sree eet Cede ESeeterenerteeaeeaeasetensecstersa” 
PRINT "" 
Printoption3: PRINT “PRESS ““BLADFE PATA" FOR BLADE DATA PRINT OF TIONS.” 
PRINT "" 
PRINT "PRESS "“"GO ON” TO CONTINUE PROGRAM.” 
PRINT “" 
PRINT “se tercsesresseeer cast eter eer RO RROD EEO OT APE TOC R REC OT HH ONE ERT ET ERE 
ON KEY 1 LAUFL “ALADE DATA’ GOTO Printoptions 
ON KEY 4 LABEL “GO ON" GOTO Loarey tions 
Spint@: GOI0 Spini® 
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TABLE B13 (CONTINUED) 


U27 Printoption4: PRINT 


723 
724 
725 
726 
727 
728 
729 
730 
73 
732 
733 
734 
73% 
736 
737 
736 
739 
740 
741 
7A2 
743 
TAA 
TAS 
746. 
747 
748 
749 
758 
751 
782 
753 
754 
755 
756 
157 
75A 
789 
760 
‘161 
767 
163 
764 
765 
7bE 
767 
768 
759 
77 
77 
m 
773 
774 
775 
776 
777 
778 
779 
780 
78) 
782 
783 
784 


PRINT “ALIGN PAPER IN PRINTER.” 


PRINT “" 

PRINT “TO PRINT OUT A TABULATION OF THE RAW BLADE DATA™ 
PRINT “" 

PRINT "PRESS ““BLAGH DATA". PRESS “"60 ON"” TO CONTINUE.” 
PRINT "" 


PRINT “seeeereeteeeasetaser re KPC RReeePaeasae KK ORPGRHEEReeeeaeeecereneesr 
OM KEY 1 LABEL “RLAUE ONTA’ GOTO Protbladedata 
ON KEY 4 LABTL “GO OR" GOTO Frintoptions 


Spintt: GOTO Spint! 
Pretb) ededute: MASS STORNCF IS "“/CLASSICK/DATA” 


ASSIGN €Path3 TO Raubladfiles 

PRINTER 1S Peniter 

PRINT “sseccacateenreesrsraratFRersaee tases eesereseecavarcvoss” 
PRENT “BLADE RAW DATA FILE " Raubladf tles 

PRINT “seeoreoett eres erec eres ECE POETS C se eareeeeeereeeeeeseaee” 
PRINT "" 

PRINT “PROBE DATA ASSOCIATEN WITH THE MLAOC DATA IS CONTFAINEr" 

PRINT “IN FILE: “,Raufiles 

PRINT “SCAN:" Scan 

PRINT "SCANIVALVE VOL TAGE” 

PRINT “PORT READING" 

FOR N=! 10 48 

FNTER @fath3yScanval),N) 

PRINT USING "DD, 2X, MD. INE" IN, Scanval},N) 

NEXT WN 

PRINTER IS Scren 


FrintoptionS: PRINT “Cveeetecercretvtcacntenarsroteereceeoueenrerttraceeen” 


perup 
PRINT “ALIGN PAPER IN PRINTER. " 

PRINT "" 

PRINT “TO PRINT OUT A TADULATION OF THE RLADF DATA SCALFL TU " 
PRINT "" 

PRINT “ENGINEERING UNITS, PRESS ""SCALFD DATA‘"." 

PRINT 

PRINT "PHFSS ""GO ON" TO TERKINNTE PROGKAN. “ 

PRINT 

ON KEY 1 LADFE “SCALED ONTA" GOTO Fratsc} db) errlat 

ON KEY 4 LAREL “GO ON" GOTO Luatoptiont 


Spini2: GOTO Spiniz 
Prntucliblinhtat: HASS STORAGE FS “/CLASS(CK/REDOATA” 


ASSIGH ath? 10 Sclblaifilet 

PRINTER IS Prnter 

PRINT “eevoeesseterecccesegeretsesresetervreenecarenersaeeresze” 
PRINT “RLADE SCALED DATA FILE “ Selbladfties 

PRINT “weccacrectrscocevrerer se eereaeeetueecesetesapeternsacree” 
PRINT “" 

PRINT “PROEF DNATA ASSOCIATED WITH THE BLADE DATA IS CONTAINED” 
PRINT "{N FILE: “,Sclftles 

PRINT “SCAN: " Scan 

PRINT "“SCANIVALVE PRESS (INCHES H20)" 

PRINT “PORT" 

FOR N-1 TO 48 

ENTER @hatharPrntdatatl Nn) 

PRINT USING “DO, 70X MD. INE" TN Prntdatal tN) 

NEXT N 


Lonfoptiuni: PRINTER TS Seran 


PRINT “seaesecasveecceccserereea test esestarerersFereeseeseasseorera” 


PRINT "™ 
PRINT “TO LOAL FROSRAN TO RENUCE THE ACQUIRED DATA” 
PRINT °" 


PRINT "PRESS ""“CALT"". PRESS “"GO ON’" TO TERMINATE THE FPRUGKAM” 
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78S 
786 
787 
788 
79 


791 
797 
433 
794 
79S 
736 
797 
798 
793 


TABLE B13 (CONTINUED) 


PRINT °" 

PRIN] “eseueceecrreuererec ec sR RaReeratesacesinaresastrasanereen” 
ON KEY t LOBEL “CALC” GOTO Loadupt 

GOH KEY 4 LABCLI “GO ON" GOTU Fin 


Spint3: GOTO Sptnt3 
79 Loadurl: NASS STORAGE TS "/CLASSICK/P RUGS” 


Fin: 


LOAD “CALC”, 12 
PRINT “seceeserenevetsersceseseeeereberarerreenetsareacterseueesa” 
PRINT “Svereesneraeeseresreas PPP SPL PSSER ESP TEP PRP TO PP ORS PCR DED 
PRING "" 
PRING ” ENt OF PROSEAT’ 


PRENT 


PRIN] “eurerearcereeecectunreCrerearevecserectarasereeseesecercere” 
PRINT “sevronseretesoversreras SUPP OPE POP ESSES ERT OSRORER Reo HOHE SEO” 


ENU 
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TABLE B14 


SUBACQUIRE PROGRAM LISTING 





Jaays PTE eee Thi ns THE SUFEROGRANS FOR POSITIONING THE SCAHIYAL VE 
#PORTS AND READING JHE OVE. 
SUL Senvporiposit(Scenv, Dy, Sentimsyc, Scnsipeve) (THE STRUCTURE OF THIS 
{SuuUPROGRAM TS STMTILAR TO PREYIOUS 
VACQUISTTION PROGRAMS WRITTEN AL THE 
‘SPL. SEE GEOPFARTH THESIS. 
OF TION BASE J 
COM /Posttvrbtis/ Svc.Sen 
Posit:QUIhUT Svc USING “Mt K’ ¢Scnv 
7T-SPOLL Sve) 
U-BINAHOCZ 15) 
V-SHTIFTC2,4) 
T-GINARTICY, 7) 
P=t@eTaty Po 1S THE FRESENT FOR! THAT THLE 
tSCANEVALVE IS ON. 
CLEAR Sve 
IF P-Op THEN Retrn 
IF PD: THEN 


OUIFUT Sen USING "72"yScnlimuve THOME THE SCANIVALVE 

CLEAR Sen 

WAIT A TALLOU 4 SECONDS FOR THE HONE 10 

(COMPLETE. 

GOTO Fosit 
ELSE 

OUTFUT Sct USING "Z2"yScustpsve ISTEP THE SCANIVAL VE 

CLEAR Sen 

WAIT 21 WAIT 1/10 SEC BETWEEN STEFS 

GOTO Fosit « 
END IF 


Retrn: SEND 
SUB Reedtiivet Un, Chonlasion) 

OVTIOM BASE + 4 

COM /Positvrbls/ Svc,Sen 

CON /Readvrbls/ Scau,Dvn, Scanvts( 1.48), Temprtin ct, Yauch dy Senyauchr, Scris 

COM /Rowivebls/ Yauchnert], Scoyavchon, Scnyauchnl ,Maxdif 

OUTPUT Sen USING “Z2"sChondaaian 'CHARLASIGN TAKES ON THE VALUE 
HASSEGNED TO CT BY FHE CALLING 
TSTATESENT IN THE MAIN PROGAN. 

QUIPUT Dyers F iv Fm 3. GhOe 3s (STANDARD SETTING FOR THE DVM. 
{SETS THE FUNCTIONS ON THE PANEL. 


Sample: UN ACS) 
MAT A» (0) 
FOR I-1 TOS STAKE GS RLADINGS AND STORE IN THI 
1A” ARRAY 
TRIGGER Over 
ENTER Over ACT) 
Aves SUMCAD/T HAVERAGE THE S& READINGS 
Dev7N( J )- Avg 
IF Oev>Mandif THEN TERROR TRAE FOR STURIOUS DVI REANINGS 


PRING “SAMPLE EXCEFDED TAXIMUN OEVIATION ALLOUED- SNiPLE RETAKEN™ 
GOIO Serple 
FANN OF 
WAIT .3 
NEXT 1 
IF Noufrbs: | THEN Keactone 
(F Chilastyn*Senrdsveb THEN 
Scaonvb 1 ,Dp)>+SUN(CAD/S 
ELSE 
TF Cliandbaeique Senyruchn) THEN 
Yinscline dt -SUNC ADS 
E1 SF 
Tf ChanlastrnsSenyeuchio THEN 
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TABLE B14 (CONTINUED) 


705 Yauuhnr ids SUMCAD/S 

787 Et St 

789 GOTO Tesproad 

784 ENO IF 

790 tny IF 

751 ENO IF 

792 Readone: TF Chanlastiyu Suenelave CHEN 
793 Scanvlid 1 Oye) SUNCAD/S 

794 ELSE 

74S IF Chenlasiqus Senyauche THEN 
796 Yauchord Sune no/sS 

742 ELSE 

798 Terre: Tenpilned=SUuHCAISS 

799 EN TF 

HA END IF 

BO! IF ChanlesigurScnrdsvea THEN Scanval 1 Dp)? SUI AI/S 


#22 Retrn: CLEAR Sen 
83 SULE NL) 


121 





















TABLE B15 


LOSSCALC PROGRAM LISTING 


{THIS SUBPROGRAM IS AN ADAPTATION OF SHREEVE'S INTEGRATION ROUTINE 

IGIVEN IN APPENDIX 8 OF NPS-S7SF73071A 

SUB Datint(Loupoint ,H- point Dl ®) Posit(*®) Datint) 

OPTION BASE ¢ 

DIM AC 12) 

DIM Bt 100) 

DIM Ci teu) 

DIM Oint( 180) 

MAT A= (@) 

MAT Be (@) 

HAT C= (0) 

MAT Dint= (@) 

NeHipoint-t 

Nmt=N-} 

FOR teLoupoint+! TON 

ACE CI/ (Poste Let) -Fostt( 1-1) eC CC DCT 41) -OC TL) /(Posit( let )-Posit¢ 1) ))-¢ 
BCT eC COC TD-OCI-1)9)/¢Poeit( 1 )-Postt(I-1)))-(¢(Posit¢ 1) +Posit(l-1) *ACT)) 
COL =DCL)-CACT ePosit(1)°2)-( BCT) #Posit( dl)? 

NEXT I 

Datint=® 

FOR I*Lounoint+! TO Nm) 

Dint(L = CACTFACT 41) eC Posit( 241 )°3-Posit( T)*S)/64( BCL ABUT +E) eC Poeit( i+! 
Datint-Datint+vint( 1) 

NEXT I 

Dint( t-“AC2)#(Postt(2)°3-Posit: 19°32/34BC2)9(Posit(2)°2-Posit(t)*29/24C02) 
Dint(Nd=ACN)e(Posit( N+! )*3-Posit(N)°3)/3+B(N) 8 (Posit(N+t)°2-Posit(N)*2)/7+ 
Ontint=Datint+Dint( 1)+Dint (Nn) 

SUBEND 


tTHIS SUBPROGRAM IS AN AOAPTATION OF SHREEVE’S INTEGRATION ROUTINE 

IGIVEN IN APPENGIX B GF NF5-575F 73071 TO BE USED FOR MIX LOSS 

SUG Datinti(Lowpoint ,Hipoint Oi ¢7 Fositie) Datintl) 

CPTION BSE | 

DIM fil 1067 

GIN Bias 

OIH Cit@o 

GIN Gint’ 10d) 

Hat A= (O) 

HAT B= (0) 

Hat Ce (@) 

HAT Gante= (@%3 

N=Hipo:nt-t 

Weten- i 

FOR TeLoupoinie*)l TON 

ACT IOCI/CCFos tiled) )-Fosit¢l-daec ar ved (Ged - GCL: pet Positiiets-Posi th) 
BCL reC COC 1-04 1-1 797¢ (Positi li-Fosrt(l-dros 37 7-((Foeitt los aeFosittl- bos ase 
COL eG by- Cac Tred Poert€ 1/3) 2)-(80 Pret Fosit¢( lis 3s) 

NEXT I 

Datintl=® 

FUR I*toupornt+t TO Net 

GrintdlLr=CAt bead let ped (Fositd le) 9/3) 3-( Posi tC hos 3) Sr Get BCL peBe lobe rec’ 
Gatinti=Datinti+Gint( 1) 

NEAT 1 

Gintd tr 2764 (Fosi1tl 27/37) 3-tFosrtt has 3) Jd 3eBC2 000 Fosite2 i730 Z-( Post 
Cint (Ph  =iON red (Poser tC Neti/ 32 3-(Posrt(Nos 37) 39/3+BN OC Posrt( Ne tos as 2-0P 
Uatintt=-Datanti*Grnt( i reDint( Ns : 

SUBEND 














TABLE B16 


CPBLADEPLOT PROG!AM LISTING 


1 {Pe MULAN LP bt AnUErLUl 
2 TPROGRAM FLOTS RASS WVERNGE ) GLADE COEFFICIENT GF PRESSURE AGAINST 

3 TTHE FRACTION GF CORD ket "RUM THE LEROING EOGE. 

5 HSS STORMGE 15 “/CLASSICR, Gorse 

7 INPUT “ENTER THE NAHE OF THE FILE CONTAINING THE BLADE CP*S .Cofiles 

1® @5516GN Breath! 16 Cofiles 

i GFTION Brse 4 

tz Gih Comassavgi 46) 

tS BIH xKoclid) 

16 HAT Comassavq™ (@) 

19 TH 96.3,54.6,90.8,66.6 F .6,75.8,71.5,64.1,56 7,49.3,41.9,3¢.3,26.9,15.8 
ra’) READ tocwe?) 

Z6 ENTER @Fachis;Comassavg! : ° 

na GINIT 


6e PLOTTER 2S CRT, ENTER? aL” 
Rr SCREEN 

Ey Lf 05 CFF 

Gar MES Ore 

K gdu_ max to@ernAcd | Fertig? 

T gdu_max= 1@QeHiacd, b/RATIG? 
LOM &§ 

Form t=-.35 16 .5 STEP ot 

HUVE X_qou_maxsZ¢+l, 1 _gru_maox 
tnbet “Cp vs PERCENT CHORD 
Ntat I 

GEG 

64 LOI 3@ 

65 HOVE % 9 _ari_maxs2 

66 LaGFL oop 

&7 LOIF @ 


si nt si om or 


wags ctu aan = 


ani wi NE SI OSI 


6G HOVE A grit mans Z,. ber gdu_max 

63 CSI7F. 3,1 

St LygFl oar FERCENT CHORD 

SZ VIEWrORT 2 bex_gdu_max,.95¢A_gdu_max,.1Ser_qdu_max,.9*1_gou max 
54 FreiF 

55 WIDOW © 1Oe ba, 16 


eC, 
56 e€5 5,.7,8,1 
57 CLIP OFF 

6 CSIZE 7.5,.5 
55 LOrG 6 

1c FOR 1e@ TO 160 STEP 10 

161 Hove Tl. az 

{Oz LOBEL USING “HK eI 

13 WEXT I 

lod LUe> 6 

es For te-1.6 16 1.0 STEP 14 

1¢6 Hove -.6,1 

1@7 LAGEL USING “GO.bi' «1 

t@6 NEXT I 

1@5 FOR N=) 70 76 

113 PLOT Koct nhs Comassava( Nt3) 

ti4 NEKI ON 

iS FOF M-d TG 28 

tt6 FLOT XoctZt-Ny,Cpmassavg( Z24*N? 
a NEAT ON 

5 ENG 


-@,2,2,7 
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TABLE B17 


BETAPOSIT PROGRAM LISTING 


trnvonewe OL ren vores 
1FROGRAM PLOTS BETA VS PROBE FOSITIGN 
HASS STORMGE 15 “/CLASSICK/REGINTA” 
INPUT "ENTER THE NAME OF THE REGUCED OniTA FILE", ,Calcdats 
ASSIGN @Pathi TO Calcdats 

OPTIGN 8ASE t 

OIM Calc( 108,257 

HAT Calc= (@) 

Scanz49 

ENTER @PathiCatcte) 

GINIT 

PLOTTER IS CRT, “INTERNAL” 

CLE SCREEN 

KEy LABELS GFF 

GhifHICS GN 
K_gdu_max=lo@enAxd | RATIG? 

1¥_ gdu_max=1OOeHAKC I, E/ RATIO? 

LOR 6 

FOR I=-.3 76 .3 STEP .1 

HOVE A_gdu_max/21+1,1_qQdu_max 

LABEL "BETAZ VS PROBE OISFLACEHENT™ 
NEAT I 

GEG 

LOIR 9% 

HOVE ®,1_gdu_max/2 

LABEL "BETA2 (deg)” 

LDIF @ 

MOVE A_qdu_max/72,.1¢1_gqdu_max 

CSIZE 3,t 

La6PL SPAN Crn7" 

VIEWPORT .tex_gdu_max,.99*x_gqdu_max,.15¢r_gdu_max,.9°¥_gdu_max 
F Fest 

WINUGU -S,5,-2,6 

HPAES 20452, 78,72,5,5,2 


CLIP GFF 

CSIZF 2.5,.5 

LOG 6 

FoR I--5 16 5S STEF 1 
HOVE 1,-2.9) 

LABEL USING “8, K" Ge! 
NEAT I 

LO 6 

FOR Te-2 76 & STEF t 
MOVE -S.t,I 

LABEL USING “GOD.D0'sI 
NEXT 1 


FOR K=i TG Scan 

FLOT Calc(k,t),Caletk 9) 
NEAT K 

ENU 











TABLE B18 


PRESSPLOT PROGRAM LISTING 


PR RUOMAE PREP RPUKER 
(PROGRAM PLOTS PREF-PT/GREF VS FROBE FOSITION 
HASS STORMGE IS “/CLASSICK/REGDATA™ 

INFUT “ENTER THE NAHE GF THE REGUCED DATA FILE" Calcdats 
ASSIGN ®Fatht 16 Calcdats 

OPTIGN 6mSE | 

GIW Calc( 108,25) 

Hl Calc= (@) 

Scan=76 

ENTER ®8F sthirCaict(«s 

GINIT 

PLOTTER 15 CFT “INTERNAL” 

CLEAR SCREEN 

KEr LABELS OFF 

GRAFHICS GN 

X_qdu_max=1O0eHAKCI RATIO? 

¥_gdu_max=lOdetAaxd!, b/RATIG) 

L6G 6 

FoR Ix-.3 TO .3 STEP 11 

HOVE K_gdu_max/2+1,1_gdu_max 

LABEL ‘Pret-Ptz/Gref VS PROBE GISPLACEMENT( REF)” 
NEAT 1 

GEG 

LOIK 50 

HOVE @,¥_gdu_max/z 

LAEEL “Frel-FtZQcet” 

Litt @ 

HOVE xX_qdu_max/Z,.1°1_gdu_max 

CSIZE 3,1 

LABEL BLAGE-TO-BLADE( in)” 

VIEWPORT -1exX_gdu_max,.99°x_gdu_max,.15e1_gdu_max,.8¢1_gdu_nax 
F FAHE 

WINDOW -3,3,6,.7 

AXES .t,.01,-3,0,5,18,2 


CLIF GFF 

CS1zE 2.5,.5 

LOG 6 

FOR I=-3 16 3 STEP J 
HOVE 1,-.@! 

LABEL USING "RK yt 
NEAT I 

LGORG 6 


FUR I#1.6 16 @ STEF -.1 
HOVE -3.1,1 

LABEL USING “OO.00 41 
WERT I 

FOR k=l TG Scan 

FLOT CaletkK,t) Caletk, 16) 
NEAT K 

EWG 
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TABLE B19 


VVREFPLOT PROGRAM LISTING 


TRMVUORMID veer eu 
{PROGR FUOTS V/VREF V5 FROGE FOSITIGN 
Hi5S STORAGE 15 “/CLASSICK/REDONTA® 
INFUT “ENTER THE WAKE GF THE REGUCED CATA FILE” ,Catcdats 
N551GN &Path2 TO Calcdats 

GPTION BASE | 

GIN Calct 168,25) 

HAT Cale= (8) 

Scan-78 

ENTER @Fath21Calci«) 

GINIT 

FLOTTER FS CRT,’ INTERNAL" 

CLEAR SCREEN 

KEY LABELS GFF 

GRAPHICS GN 

A_gqdu_man=tG@dehArxd | RATIG? 
T_gdu_max=1OdeHAxC 1, I/RATIO? 

LORG 6& 

FOR I=-.3 TO .3 STEP .! 

HOVE &A_gdu_max/2+1,¥_gdu_max 

LABEL "V2/Vref VS PROBE DISPLACEHENT( REF 7" 
NEXT I 

CLG 

LOI 90 

HOVE @,1_gdu_max/2 

Lick: “VeeVret™ 

LOIn @ 

HOVE X_qdu_max/2,.t*1_gdu_max 

CSIZE 3,t 

LABEL “BLADE-TGO-BLAGEC IN)” 

VIEWPORT .1¢xX_Qgdu_max,.93°X_gdu_max,.15e1_qdu_max,.9*¥_gdu_max 
FERGHE 

WINDOW -3,3,.5,1.0 

AxES .t,.01,-3,.50,5, 18,2 

CLIP GFF 

CSIZE 2.5,.5 

LORG 6 

FOR T--3 16 3 STEF | 

HOVE 1,.49 

LABEL USING “BK aT 

NEAT J 

LORG 8 

FOR I=t.®@ TO .S STEP -.1 

HOVE -3.1,1 

LABEL USING "OO.00'11 

NEAT I 

FOR Kel TO Scan 

PLOT Caltct(kK,1),Calc(k,7)/Calei(k,t4? 
NEKT K 

END 








APPENDIX C 


REYNOLDS NUMBER CALCULATION 


Reynolds number calculation was added to the "CALC" 
program. This capability was added primarily to find the 
Reynolds number for the (averaged) inlet flow, however it will 
also calculate the value for the (averaged) downstream flow. 
The value in general should be calculated over the same three 
inch interval used for loss calculations and will have the 
same lower- and upper-integration scan numbers as the loss 
inputs in most cases. However, the ability to use a different 
interval is provided by having the ability to enter the 
desired limits for the selected scans of a three inch 
interval. 

Lines 2514 to 2530 of Table Bl contain the Reynolds number 
calculation process in program "CALC." Line 2577 of Table Bl 
produces the output in the reduced file printouts. The 
following is the analytical development for the Reynolds 
number calculation. 


The Reynolds number (based on chord) is defined as 


Re (1) 


Properties vary at the inlet so integration is required over 


one blade space; thus 
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Re = f= P¥as(£) = eV pref a. (Pree) (2) 
o op Ss 0 arerarre p 


which reduces to 


prefVref fs ki } pbrely ds (3) 


Re = 
pref 9  cosB1 





The ensemble average of survey span Reynolds number is then 


defined as 











P Vref k ref 
= P 1 brer 
Re, = a( Rr, ) iret eo i )ds (4) 


with subscript p denoting the plenum (reference) condition. 


Introducing Sutherland's Law for the viscosity 


3 
b.. 0,063329T # (5) 
Lo 198.72+T 


and using the calculated value X from measurements to find T 


EST aXe) (6) 
then, 
y= bref . , 7p) 7 ,_198.72+T (7) 
mi T 198.72+Tp 


128 














The integral in Eqn. (4) is then 


ae 
v= I. Sapz) 248 (8) 


which gives 








P nw 
Re = 120(—2) Vref, (9) 
RT, firef 
where 
“ 3 
Qref = 0.063329 Tref * : (10) 
198.72+Tref 
and 
Tref = f,(1-Xref’) (11) 


Eqn. (9) was used in the calculation of the Reynolds 
number in program "CALC" with the intermediate steps of 
determining pref, Tref and the integral I using Eqn. (10), 


Eqn. (11) and Eqn. (8) respectively. 
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APPENDIX D 


CALCULATION OF COMPRESSIBLE MIXED-OUT CONDITIONS 


| | AO) 
| 
{ 







Fully Mixed 


Plane 
Measurement 
Plane 
x(f) 
Inlet /Ptref | | Vv 
Plane |Ttref 
Vref z(f) 


Figure Dl. Fully Mixed-Out Conditions for a 
Stationary Cascade 


Dl. FULLY-MIXED-OUT SOLUTIONS 

Figure Dl illustrates the concept of fully-mixed-out 
conditions for a stationary cascade. For loss calculations, 
the mixed-out conditions must first be calculated from 
measurements made at both station 1 and station 2. However, 
the procedure will only be shown here for station 2 to 
hypothetically mixed-out conditions at station 3. The 


procedure from station 1 to fully mixed-out is the same. The 
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present procedure [Ref. 12] was found to be consistent with 
the method of S. everding and Starken [Ref. 13]. 

Measurements were made at station 2 where the flow was 
non-uniform. Uniform (fully-mixed-out) conditions at station 
3 were calculated from those at station 2 using conservation 
of mass, momentum and energy for the control volume labeled 
ABCD. 

Assumptions are made that the flow is steady, that the 
gas is a perfect gas with constant specific heats and that the 
stagnation temperature is uniform throughout the flow. 

Conservation of energy is satisfied by the assumption of 


constant stagnation temperature, thus 


Page Toy SL (1) 


Conservation of mass yields 


p,V,cosB, = f “p,V,cosB, (2) 
9 


Conservation of momentum yields 


0 = jf. {Vat f ati, [cf i GF, (3) 


where dF is the component of force on an elemental area of the 
control volume's surface. No contribution to the conseivation 


equation results from the periodic conditions along BC and AD. 
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If the integral of the shear stresses over AB is 
neglected, the component of Eqn. (3) in the x-direction 


becomes 


p,V,2cosB,sinB, = a p,V,*cosB,sinB,d(—=) (4) : 


With no assumptions, the component of Eqn. (3) in the 2z- 


direction becomes 


+ 
P; + p,V,2cos?*B, = i (p2V,*cos*B,+P;) d(=) (5) 
0 


Equations (2), (4) and (5) give conditions at station 3 in 
terms of those measured at 2. Using the equation of state and 
constant stagnation temperature, the four unknowns (P3, P3, V3, 


B,) can be reduced to three. Introducing the limiting velocity A 


Ve = 2ecr, (6) 


which, here, is a constant, and defining a dimensionless 


velocity as 


wee: 
X= V, (7) 


the steady flow energy equations and isentropic relationships 





give 
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T 2 
— 
: x (8a) 


P 5\ wz 

SS (exe) rs (8b) 
¥, 

een Gee co ee (8c) 
Pr 


Multiplying the left hand side (LHS) of Eqn. (4) by 


de 
Pr3V,° 





and the right hand side (RHS) by 


and using the equation of state with T, as constant, 


eae. : = 
PesX;?(1-X,?) Y? cosB,sinB,=[° P,,X,?(1-X,") Y? cosB,sinB,d(=) (9) 


Similarly, from Eqn. (5), noting that 2Cp/R = (2y/y-1) 


aan ES 2 ade 
P.31(1-X,2) 7 sare (1-X,2) Fcos?B,] = 


133 











pe i aa. 
[: Po (1-X,2) Ti+ (21) x2 (1-¥,) Ficos’B,Ja(%) (10) 
‘ y-1 s 
and from Eqn. (2) 


1 x 
—_—_—— aa —_ 
PX, (1-X,?) ThcosBy=f | Pp2X, (1-X,7) TF cosB,d(%) = (11) 


Equations (9), (10) and (11) are three equations for unknowns 
P.3, X; and 83. 


Identifying the three RHS integrals as 
a a aes x (12a) 

T= Pr2X, (1-X,?) 1 cosB,d( =) 
: 2) FI x 12b 
I= P.2X,(1-X,*) T?cosB,sinB,d(=) (12b) 


1 
2Y 2(4-v.2) ¥-1 2 x (12c) 
a pK CLA) cos*B,] d( =) 





1 5. Oe 
1,=f Pp2l(1-X,*) 1° + ( 
0 


and eliminating P,, by dividing Eqn. (11) into Eqn. (9) and 


Eqn. (10) yields 


. z 
*,sinB,=+*=A (13) 
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Similarly, dividing Eqn. (11) into Eqn. (10) obtains 





: 2Y 2 2 
1-x,? x. 
ger” Ronee oe (14) 
X,cosB, I, 


Equation (13) and Eqn. (14) are simultaneous equations 
for X,; and B,; in terms of A and B, which are known from 


measurements. Squaring Eqn. (14) and substituting for cos’f, 
using Eqn. (13), 


: 2y. ie 
B?x,2-B2A?2 - a (3p ate (2) a)? (15a) 
which is also 
Peleg ty ye pt cin 2) uty 2alfye(_2¥_)a212 227} 2 1 
core a v2 (ee) [2 (spa ) -37}X,74{[2 (74 }?+B7A7} = 0 (15b) 


Equation (15b) is a quadratic equation for X,?, yielding an 


explicit solution 


y.22 Dt D*-4C. (16) 
° 2C 
where 
pas (17) 
y-1 
pee yt Gey ae Re (18) 
y-1 y-1 
B= (1- (EY) a7] ?4B7a? (19) 
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The alternate s*gns in Eqn(16) correspond to subsonic and 
supersonic roots. [Ref. 13] When X; is known from Eqr.. (16), 
8, is given by Eqn. (13), Py; by Eqn. (11) and P, by Fqn. (8b). 


These are the fully-mixed-out conditions. 


D.2 INTRODUCTION OF REFERENCE CONDITIONS 

In practice, when probe surveys are conducted to obtain 
the integrals in Een. (12), fluctuations occur in tunnel 
supply conditions. The integrals in Eqn. (12) are to account 
for spatial variations in properties. If time variations 
occur, the eifect on the spatial integral can be minimized by 
referencing the integrand to tunnel reference conditions at 
the time of the measurement (Duval [Ref. 9]). 

Ptref, Ttref and Xref are defined as the tunnel reference 


n 


conditions ai the time of each individual measurement, and P,.,, 


an 


Tee and X,., aS the ensemble average values of the reference 
conditions cver all points in the integration interval. 
The conservation of mass equation is divided by the 


reference mass tlux 


1 
prefvres = (SE) xref (1-xref?) V7 pweresy (20) 


and the momentum equation by the refer2nce momentum flux 
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1 
prefv.eft= (21) xref? (1 -xref*) 4 peret (21) 
Dividing Eqn. (11) by prefVref with Vtref = constant, 
—_ 1 
: P,,X, (1-X,*) > cosB Pt,X,(1-X,?) Y2cos 
oe yes ey 9 ee ee ele ee 
e i Ss —i 
-1 


0 —— 7 - 
Ptrefxref(1-Xref?) ¥1 Ptrefxref(1-Xref?) 


Cividing Eqn. (9) and Fqn. (10) by prefV’ref 


1 
_ Pt, 5? (1-447). coshisinB, 


ale 


_ Pp _X, (1-X,2) Yt cosB.sinB. 
Cc. 7 d( x 





f=[7 2 1 et 1 
’ ptrefXref?(1-Xref?) Perefxref?(1-Xref?) 1 
(9a) 
b..{ (1+x,?) Via (2Y) x2 (1-2) Ti cos?p,] (10a) 
£2 f° S14 = a= 


Ptrefxref<(1-Xret?) ¥1 


ae a 
P,, ((1-X,*) Peete ay (ie) Y-? cos*B,] 





4 


PerefXref?(1-Xref?) 


Dividing Eqn. (9a) and Eqn. (10a) by Eqn. (11a) 








Boe on: a 
——— sinB.=—= 
xref I, 


and 
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[ (1-x,2) + (AY) x,%cos*B,] 


bol bs 


X,XrefcosB, 


This leads to the following equations: 


ahs £ 
A=Xref ( >) =X,sinB, (22) 
1 





2Y 2 2 

f [ (1-X,?) + ( ) X,2cos7B,] 

Mi a the T 3 = 3 3 

B=Xref (—2) -=—____Y-1 (23) 
ca X,cosB, 


The solution for X; is given by Eqn. (16) using A and B 
in Eqn. (18) and Eqn. (19). Then, the mixed-out-flow 


conditions are given by 


=Sj (A 
B,=Sin ay (24) 


1 
,. Ptrefxref(1-Xref?) a 


3 ; (25) 
X,(1~X,7) %* cosB, 
ee 
P,=Pt,(1-X,?) 1} t26) 
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APPENDIX E 


FULLY-MIXED-OUT FLOW SOFTWARE TESTING 


El. INTRODUCTION 

After coding the fully-mixed-out flow calculation within 
the software developed by Classick, a test of the software was 
required using an initial profile for which the mixed-out 
conditions could be determined exactly. By applying the test 
case, it was possible to determine that there were no 
fundamental errors in the programming. 

Figure El shows the selected test case for which the 


analytical solution was programmed on an HP 9830A [Ref. 11] 





computer. 
x = 0- 1.5 x = 1.5 - 3.0 
X.= 0.1 X,= 0.05 
B = 20, 0 B= 20, 0 
P= 401" water Prog = 430" water 
re 400" water T, = 520°R 


Figure El. Fully-mixed-out Flow Test Case 


The test case was provided to "LOSS" as a reduced file 
for inlet tlow angles of zero and 20 degrees. zero degrees 
was chosen to ensure that the flow angle did not change as a 


result of calculation errors. The value of 20 degrees was 
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chosen to provide a reasonable test against the predictions of 


the analysis program. 


E2. "LOSS" TEST CASE CALCULATIONS 

"LOSS" was used for the test cases of zero and 20 degrees 
initial angle. Figure E2 shows the output at the zero 
initial angle, which produced no change in the mixed-out flow 
angle, as was expected. Figure E3 shows the output for 20 
degrees initial angle, which is shown in comparison to the 


analytical predictions in Table El. 


E3. INDEPENDENT PROGRAM CALCULATIONS 

The analysis program used closed-form expressions for the 
integrals involved in calculating the values of X, Pt, Ps, and 
yaw for the mixed-out flow (Appendix D). Figure E4 shows an 
output of the test case at 20 degrees initial flow angle using 
the values provided in Figure E1 along with a listing of the 
analysis program. 

The analysis program was also used to look at the effects 
of changing initial velocity, angle, fraction of the flow at 
high velocity and ratio of high to low velocity on the mixed 
out values of X, yaw, Pt and Ps. Some results are tabulated 


for cases with the flow equally divided between high and low 


velocity in Table E2. 














Figure E2. 


LOSS CALCULATION RESULTS FOR STATION TWO ANO MIXED FLOW RESULTS. 
POPP D EO DOE ORO HEH OPO ORVE SEER PHOS TOURED ESERELOEEEESEREICR EH REHES 


USING FILES L-27FEBACALE U-2@MARTEST@ 


X2REFAVG PZREFAVG PAUAUG 
[.43QE-@f 3.QQ0E+O1 4.800E +02 


INTEGA INTEGC INTEGY INTEGOI! INTEGOI2 INTEGOI3 

2.334E+00 2.7236E+00 9.698E-@t 1. 752E+@2 2.5@5E+0! 2.505540} 

NUMERATOR INTEGE INTEGZ TNTEGNII INTESHI2 INTEGNI2 

1,SIGE+@Q 1. 41ZE£+00 -8.790E+01 FG.88GE+@! @.AQ0E+QA 1.256E+03 
DENOMINATOR 

2.34SE+by 


STATION TWO RESULTS 


STATIC PRESSURE RISE COEFFICIENT 
~3,TO7E+O1 


AVDRF 
6. 463E-81 


LOSS COEFFICIENT 
1. S@0E+0a 


LIANG TZAVG T3AVG AAVG BAG CAVE DAUG 
S.186E-O! @.OQ0E+00 S.OI4E+O! B.CQGEHOD 1.382E+O) 3.600E+OI-1.791£+02 
EANG 

1, QQCE AB 


XMIXFLOW YAUNIYFLOW FTRATIO 
7.476E-02 B.Q0RE+RO 9.5S4E-9) 


PSMI4FLOW CRIMIXFLOW 
4.@2PE+@2 9,554E£-0! 


K3 Xabi 
S.J86E-@) 4.955E~-@1 


INTEGU INTEGT TNTEGY 
4.1SBE-@2 1.556E+80 1. 486E+00 


MIX FLOW RESULTS 
MIX FLOW STATIC PRESSURE RISE COEFFICIENT 
4. 313E-01 


MIX FLOW AVOR 
6.62S5E-@) 


MIX FLOW LOSS COEFFICIENT 
9.S7QE-81 
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Test Case Loss Printout--Zero Yaw Angle 





LOSS CALCULATION RESULTS FOR STATION TWO AND MIXED FLOW RESULTS. 
SeFOMSSSESSSSSHSHHSHSHTHOSHESHSEEFSESHSSSHASAPESHRHSHETELSFF SORES PREFER EE 
USING FILES L-27FEBACALC U-2@MARTEST20 
1-3{ I-48 
XZREFAVG = PZREFAUG AUAVS 
1.430E-@1 3.Q0QE+O! 4.000E+02 


INTEEA INTEGC INTEGY INTEGDI! INTEGDI2 INTEGDI3Z 
2.334€400 2.2366+00 9.698E-81 1.752E+82 2.505E+81 2.50S5E+0! 


NUMERATOR INTEGB INTEGZ INTEGNT) INTEGNI2 INTEGNIS 
1.SIGE+00 1.4136+08 -8.79@E+O! 8. SISE+O! 2.435E+0@ 1.250E+03 


DENOMINATOR 
2.345E +00 


STATION TWO RESULTS 


STATIC PRESSURE RISE COEFFICIENT 
-3.707E+81 


AVOR 
6.463E~-61 


LOSS COEFFICIENT 
1.SQGE+00 


T1AUG I2AVE 13AUG AAUG BAVG CAUG 

4.B74E-O1 9.719E-02 4.989E+01 2.852E-O2 1.464E+01 3.600E+01-2.024E+07 
FAUG 

i. 163E400 





XMIXFLOW YAWMIXFLOW PTRATIO v. 
7.585E-@2 2.203E4+01 9.S554E-01 Senflod = Hi0, 62% 


PSMIXFLOW CPTMIXFLOW 
4.026E+02 9.554E-01 


K3 XxKk3 
4.874E-61 4.656E-01 


INTEGU INTEGT INTEGY 
3.S47E-O2 1.462€+00 t.397E+00 


MIX FLOW RESULTS 
MIX FLOW STATIC PRESSURE RISE COEFFICIENT 
4.257E-81 


MI¥ FLOW AVOR 
6.235E-@1 


MIX FLOW LOSS COEFFICIENT 
5.S63E-91 


Figure E3. Test Case Loss Printout--20 Degree Yaw Angle 
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TABLE E1 


COMPARISON OF "LOSS" AND ANALYSIS PROGRAM 


Mix Flow Condition "LOSS" Analysis 
Yaw 22.09° 22.08° 
X -07585 -07584 
Total Pressure 410.822" H,O 410.829" HO 
Static Pressure 402.6" HO 402.61" H,O 


143 





SES) oat) DD TON ed AD DDD OD 13 9919 
Pros is Bae oe = B= 


DDD D9D9909399090390 


Do 6) 40) 64) Gd 609 49 9 649 GD 10 ADD IAD AD ADDY POA AD ee me ee ae re ew wre ore em eo HD I OM Lo) A) 
Sop RD me DO 


419 


CRA CHAN 
CASH AM 


DOD DAU 


a4 


A FASPASC1-¥AKK3) 1 C-G2) ' 





' 
REN----- SeeeeHOlCs2e22%----- RF. SHREEVE------ B/4/ EE 
REN----- FROGFAN 19 TEST THE CALCULATIGH OF FULLY SMYXED OUT 
REII----- FLOH FROM A CASCALE ‘i 
REN : ; 


REN----- CALC. INTERMEDIATE VARIABLES 


G2=G1/¢GI-1) 

FI=CL-FO/CI-CGOENI) t2) 

#8=1-CPO-F9)t¢17G62> 

HO=SORNA : 
Pegistg eee f 
VieHie 

PEH----- CALC OF List2s13 

TASFE TLS V2RCOSBSS CFOFFS2GONCI-HLeV i) 

L2=FERTIFY LEY PSCOSBR22SINHB22C1-F2#C1-GO#GO)) ’ 
LIKSSG2HTL STIs V2 *COSB22COSB2%¢(1-F9#C1-GO#GA)) ae 
13=F6#(Ci-XA)7K9419) 

REN------ CALC. COEFFS. IN SOLUTION 

Ales 12711 : 

Bi=K2# 73711 , i) 
ClaCCG1+1)7¢G1-1)>42 

CO=SORC! i 
PL=2ECOseCl-25G2sAisnid-Bizel 
EL=C1-29G2sALeNio12+B1 eB eALeAl 
N4=C-PEFSORCDLEDL-4 ected y7cascid 
HS=C-F1-SQRCDEEDI-48Ch Elo 7 c2eci> 
REN-FRIHT “FOSITIVE ROOT? 23="SORNAS “HEGATIVE PONT: K3="SARXS 
REN-~--- SELECT SHALLER<SUBSONIC ROOT : 

HI=TORANG 

Z=ALON 

BI=AINC2S7SARC1-222)) 
FR=PORKISCP-HIFK DELL ZCKI# CA-KFI#XF) #COSBI) 





REW--~--- CALC. STAGH, FRESSURE II 


FOnPSeC1-CGO#¥1) 1294 ¢-G2) 
REN----- FRUNT SECTION 

PRINT “INPUT BATA 

FRINT "---------- - 


INT "HAS" YL"OVER"FO"OF ELADE SFACE” 

MT “H="KXPsC@"QVER"1-FO"OF BLADE SFACE” 
HE "“P2="F2y"GEIA 2="B2 

HT "PIA2"Frs"PIBs"FS 


HY “CPREF="FOs "PTREF@"F9")* 


Ne “CALCULATED MIXED OUT FLOW” 


NT "X32"h3 . 3 

HT “83="83 , 7 
RIT "P3="P3 : 

FRINT “PT3#"F4 


BAIBAIIWMADAINT 
3329.7) 70773 
cae ce cae one on oe tae et nee 

= 


Figure E4. Analysis Program Listing 
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Yaw 


60 


TABLE E2 


EFFECTS OF VARIED X, YAW AND AREA 


X3/Xa Yaw (Mixed) Psratio Ptratio 
0 73.93 1.0044 -9979 
0 0 1.0179 -9911 
0 61.93 1.0015 -9953 
-05 59.60 1.0086 9950 
1 57.41 1.0077 -9950 
25 51.85 1.0054 -9958 
-35 69.05 1.0040 -9966 
-45 46.92 1.0029 -9974 
5 62.57 1.0011 -9979 
«5 51.03 1.002 -9978 
-5 46.08 1.00242 -9978 
5 43.06 1.0026 -9978 
“5 0 1.0046 -9977 
5 22.08 1.0040 -9977 
ake: 45.5/ 1.0020 -9982 
-65 44.29 1.0012 -9989 
75 43.54 1.0006 9994 
-85 43.19 1.0002 -9998 
-95 43.02 1.0000 -9999 
1.0 43.0 1.0 1.0 
1.0 0 1.0 1.0 
1.0 60.0 1.0 1.0 
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E4. TESTING RESULTS 

The results in Table El show excellent agreement between 
the two predictions and suggest that the programmed fully- 
mixed-out flow calculations are correct. It is not possible, 
however, to determine with the programmed test case whether 
the calculation will be accurate for all initial conditions. 

It is noted that the inlet flow angle of 43 degrees gives 
the maximum turning angle, during mixing, as determined by the 
analysis program. The angle, in all cases of varying the flow 
fraction at X;, is seen to increase as the fraction decreases, 
until the fraction is about 0.1 of the flow area. Decreasing 
the ratio of X, to X, results in less turning in cases where 


the flow area fraction is one-half. 
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APPENDIX F 


PROBE ANGLE REFERENCING 


The free-jet method as described in Appendix Cc of 
Reference 6 was used to relate the measured yaw angle to the 
locus of the leading edges of the cascade blades. A digital 
precision inclinometer with a resolution of 0.1° was used in 


all the following angle measurements. 


_— Cascade T.E. Locus 





-esees Horizontal 


vertical 


Figure Fl. Probe Angle Referencing 


1. Angle 6, is the angle of the leading edge of the cascade 
to horizontal as illustrated in Figure Fl. The average 
value obtained in blade-to-blade measurements was 0.25°. 
This compared to 0.2° as measured by Dreon [Ref. 3]. 
The value of 0.2° was used. 
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7 Flow 


peau 





Figure F2. From North Side of Free-jet 


2. Angle A,--The probe was pneumatically balanced (Figure 
F2) at free-jet velocities of 200 and 250 feet per 
second yielding A, equal to 49.7° at each velocity. 






eeeee gee oeeccerereeres eoeesHorizontal 


Figure F3. From South Side of Free-jet 


3. Angle A,--The probe was pneumatically balanced (Figure 
F3) at free-jet velocities of 200 and 250 feet per 
second yielding A, equal to 49.1° and 49.0° respectively. 
A, was taken to be 49.0°. 


4. Angel A, is the angle of the probe pneumatic axis to the ‘ 
surface of the bar (Figures F2 and F3). 





Using the measured values 


A_ = (49:7749.0 


) 


iP] 


Z 





A, = 49.35° 


5. Angle 6, is the inclination of the free-jet to the 
horizontal. 


A,-A 
6. = 1 Zz 
* ( 5 ) 
Using the measured values 
49.7-49.0 
6. = 
7 ( 5 ) 
6,=0.35° 


6. Angle Bp, 


is the angle of the pneumatic axis to the 
vertical 


Bp, = 90-A 


° 


Using the calculated value of A, 


Bp, = 90-49.35 


B pa = 40.65° 
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7. Angle 3', is the angle of the pneumatic axis to the 
normal to the locus of the leading edges of the cascade 
blading. 


B pa = B pa-5 5 = 90-A ,-6, 


Using the calculated values, 


' 
Bp, = 40.45° 


8. Angle 8 is the vernier reading when the probe bar is 
horizontal. Sircte the vernier scale is accurate only to 
0.2°, 8, was measured by placing the probe's mechanical 
axis verticai with the inclinometer and then measuring 
the probe bar angle from horizontal with the 
inclinometer. 8, was measured to be 40.4°. 


9. Angle #, is the flow angle as measured with the probe yaw 
angle vernier's vceltage output. 


10. Angle & is the flow angle to the normal to the locus of 
the leading edges of the cascade blading. 


Hence 


' 
B = Bp, + (Be + By) 
yieldi:ng the final expression for the referenced yaw angle of 
B = 40.45 + (BP, + 40.4) 


The above expression was incorporated in the "CALC" 


program with a user input of By, in the event that it should 


change. 8; is input from the yaw transducer during a scan. 
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